Question

Составить БЛОК-СХЕМУ к задаче: Дано двузначное число. Определить, равен ли квадрат этого числа учетверенной сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52 — отрицательный.

Answer 1

наверно так.

var

d1,d2,n:integer;

k,s:longint;

begin

Write('Введите натуральное двухзначное число: '); Read(n);

d1:=n div 10; d2:=n mod 10;

k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));

Write(n,': ');

if k=s then Writeln('Квадрат числа (',k,

') равен учетверенной сумме кубов его цифр')

else Writeln('Квадрат числа (',k,

') не равен учетверенной сумме кубов его цифр (',s,')')

end.

Answer 2

Для создания блок-схемы для данной задачи, вы можете использовать следующий алгоритм:

1. Начало программы.
2. Ввод двузначного числа.
3. Разделить число на десятки и единицы.
4. Возвести каждую цифру в куб.
5. Просуммировать кубы цифр.
6. Возвести исходное число в квадрат.
7. Умножить квадрат числа на 4 (четверенная сумма).
8. Сравнить результаты из шагов 5 и 7.
9. Если результаты равны, вывести "Положительный ответ" (квадрат числа равен четверенной сумме кубов цифр).
10. Если результаты не равны, вывести "Отрицательный ответ" (квадрат числа не равен четверенной сумме кубов цифр).
11. Конец программы.

Это базовая блок-схема для данной задачи. Вы можете дополнить ее дополнительными блоками для обработки ошибок ввода, если необходимо.