Регистрация
FOXyashka2005
19.06.2023 23:35
Информатика
Есть ответ 👍

Напишите программу:
Вывести на экран фразу "Наелся и спит" n раз разными цветами.

283
396
Посмотреть ответы 1

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

скрытый3
скрытый3
4,5(22 оценок)

program z;

var a, n:integer;

procedure s(x,y:integer);

var i,s:integer;

begin

s:=1;

for i:= 1 to y do s:= s * x;

write('Степень числа равна: ',s)

end;

begin

write('Введите число: ');

readln (a);

write ('Введите степень числа: ');

read (n);

s(a,n)

end.

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