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

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 ответ

Посмотреть ответы

max_knax

720

Условие задачи: дано натуральное число N и два числа R и S. Необходимо проверить, выполняется ли одно из двух условий:
- произведение цифр числа N равно квадрату числа R;
- произведение цифр числа N равно кубу числа S.
Если хотя бы одно из условий выполняется, вывести "Верно", иначе вывести "Неверно".

Хороший ответ

24 апреля 2023 08:30

Остались вопросы?

Найти нужный

Еще вопросы по категории Математика

Какое количество секунд соответствует одному миллиону часов?... Какую десятичную дробь получим, если разделим 1 на 2?... Что такое частное в математике 4 класс... при каком значении параметра а вектор q(-1;0;а) является собственным вектором линейного оператора А, заданного матрицей А=(4 4 -6 ; 3 2 -3 ; 3 4 -5).... Запишите пять последовательных натуральных чисел кратных 15 начиная с наименьшего какое число стоит в этом ряду кратных на сороковом месте...