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

Question

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

ermekbaevadinara · Answer

Var a:integer;beginreadln(a);if a mod 2 = 0 then writeln(a*a) elsewriteln((a div 100) + (a mod 10) + ((a mod 100) div 10));end....

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