Лучшие помощники
24 апреля 2023 08:06
172

Точно и четко сформулировать условие задачи, которая решается в данной программе


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.

К данной программе поставить блок-схему

1 ответ
Посмотреть ответы
Условие задачи: дано натуральное число N и два числа R и S. Необходимо проверить, выполняется ли одно из двух условий:
- произведение цифр числа N равно квадрату числа R;
- произведение цифр числа N равно кубу числа S.
Если хотя бы одно из условий выполняется, вывести "Верно", иначе вывести "Неверно".
0
·
Хороший ответ
24 апреля 2023 08:30
Остались вопросы?
Найти нужный