сформулировать условие задачи

rider1203

Гуру форума
Регистрация
4 Авг 2008
Сообщения
243
Реакции
61
Помогите пожалуйста,нужно точно и четко сформулировать условие задачи, которая решается в данной программе
Код:
	Program Kr_2;
	Var N, R, S, A, B, C, D : Integer; 
	Begin 
		WriteLn('Введите натуральные N, R, S: '); ReadLn(N, R, S);
		A := N div 1000; B := N mod 1000 div 100;
		C := N mod 100 div 10; D := N mod 10; 
		If  (A * B * C * D = R * R) or (A * B * C * D = S * S * S)
		Then  WriteLn('Верно') Else WriteLn('Неверно')
	End.
 
Дано три натуральных числа N, R, S. Определить: является ли произведение цифр числа N равным квадрату числа R или кубу числа S. Числа должны вводиться с клавиатуры. N находится в диапазоне [0, 10000).
 
Дано три натуральных числа N, R, S. Определить: является ли произведение цифр числа N равным квадрату числа R или кубу числа S. Числа должны вводиться с клавиатуры. N находится в диапазоне [0, 10000).
Огромное спасибо)

P.S. Тему можно закрыть
 
Назад
Сверху