14. Составить алгоритм и написать решение задачи на Паскале: Сгенерировано целое число от 50 до 70. Найти его квадрат, если оно кратно 2 и куб, если оно кратно 3.

Question

Информатика

Викуша

30 октября, 01:20

14. Составить алгоритм и написать решение задачи на Паскале: Сгенерировано целое число от 50 до 70. Найти его квадрат, если оно кратно 2 и куб, если оно кратно 3.

+3

Ответы (1)

Знаете ответ на вопрос?

Дареха · Answer 1

Program n1;

var: a: integer;

begin

randomize;

a:=random (70-50+1) + 50;

if (a mod 2=0) then do a:=a*a;

if (a mod 3=0) then do a:=a*a*a;

writeln (a) ;

end.