Регистрация
Ferklo
05.05.2020 22:37
Информатика
Есть ответ 👍

Создайте программу на языке Паскаль, которая возводит нечётное число в квадрат, а чётное — в куб.

211
362
Посмотреть ответы 2

Ответы на вопрос:

diankaZe
diankaZe
4,6(68 оценок)

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.

Physic777
Physic777
4,5(7 оценок)
Разрядность платы измеряется в битах. переведем 5,25 мбайт/1024/1024/8= 44040192 бит22,05кгц=22050гц 44040192/(22050*16)=  124,8  сек

Популярно: Информатика