Предмет: Информатика,
автор: tanya2882ru
Создайте программу на языке Паскаль, которая возводит нечётное число в квадрат, а чётное — в куб.
Ответы
Автор ответа:
0
Ответ:
Program abc;
var a:integer;
begin
Write('Введите число:');readln(a);
if (a mod 2 = 0) then a:=a*(sqr(a)) else a:=sqr(a);
Writeln(a);
end.
tanya2882ru:
спасибо
Интересные вопросы
Предмет: Русский язык,
автор: ovcharienko84
Предмет: Английский язык,
автор: dinara14may
Предмет: Русский язык,
автор: katy200503
Предмет: Литература,
автор: nika640
Предмет: Химия,
автор: Ahiskali