Предмет: Информатика,
автор: bossdzhavid
написать программу, которая для трёхзначного числа, если оно четное, то возводит в квадрат, а если нечётное, то находит сумму цифр.
Ответы
Автор ответа:
0
var a:integer;
begin
readln(a);
if a mod 2 = 0 then writeln(a*a) else
writeln((a div 100) + (a mod 10) + ((a mod 100) div 10));
end.
begin
readln(a);
if a mod 2 = 0 then writeln(a*a) else
writeln((a div 100) + (a mod 10) + ((a mod 100) div 10));
end.
Интересные вопросы