Составьте алгоритм возведения четного чилса в крадрат, а нечетного- в куб.
program zadacha;
uses crt;
var: a: integer;
begin
writeln(vvedi chislo);
readln(a);
if a mod 2 =0 then writeln(a*a);
else writeln(a*a*a);
end;
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Составьте алгоритм возведения четного чилса в крадрат, а нечетного- в куб.
program zadacha;
uses crt;
var: a: integer;
begin
writeln(vvedi chislo);
readln(a);
if a mod 2 =0 then writeln(a*a);
else writeln(a*a*a);
end;
end.