написать программу, которая для трёхзначного числа, если оно четное, то возводит в квадрат, а если нечётное, то находит сумму цифр.

Question

Максюша

10 декабря, 20:20

+1

Ответы (1)

Знаете ответ на вопрос?

Игорек · Answer 1

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.