Ковалевский
6 год назад
Пожалуйста посчитайте составить программу печатающую значение true и false Квадрат заданного трехзначного числа равен Кубу суммы цифр этого числа
ОТВЕТЫ
Rumen
Oct 24, 2020
Var A,B:integer;
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=(A div 100)+((A div 10) mod 10)+(A mod 10);
WriteLn(A*A=B*B*B)
End.
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=(A div 100)+((A div 10) mod 10)+(A mod 10);
WriteLn(A*A=B*B*B)
End.
691
Смежные вопросы:
