Предмет: Информатика,
автор: VeraFrik
Составьте программу: возведение чётного числа в квадрат, а нечётного - в куб
Ответы
Автор ответа:
0
program n;
var
x: integer;
begin
writeln('Введите число');
readln(x);
if x mod 2=0 then writeln(x*x) else writeln(x*x*x);
end.
var
x: integer;
begin
writeln('Введите число');
readln(x);
if x mod 2=0 then writeln(x*x) else writeln(x*x*x);
end.
Похожие вопросы
Предмет: Русский язык,
автор: orxanmammadov836
Предмет: Алгебра,
автор: lof143
Предмет: Геометрия,
автор: kostyadrobchenko
Предмет: Физика,
автор: брателло
Предмет: Алгебра,
автор: Kolyaesipovich