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

Тема в разделе "Другие языки", создана пользователем rider1203, 23 сен 2011.

Модераторы: Цукер
  1. rider1203

    rider1203

    Регистр.:
    4 авг 2008
    Сообщения:
    242
    Симпатии:
    58
    Помогите пожалуйста,нужно точно и четко сформулировать условие задачи, которая решается в данной программе
    Код:
    	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.
     
  2. zardoz

    zardoz Постоялец

    Регистр.:
    6 май 2008
    Сообщения:
    84
    Симпатии:
    59
    Дано три натуральных числа N, R, S. Определить: является ли произведение цифр числа N равным квадрату числа R или кубу числа S. Числа должны вводиться с клавиатуры. N находится в диапазоне [0, 10000).
     
    rider1203 нравится это.
  3. rider1203

    rider1203

    Регистр.:
    4 авг 2008
    Сообщения:
    242
    Симпатии:
    58
    Огромное спасибо)

    P.S. Тему можно закрыть