Используя цикл for возвести число 3 в степень введенную пользователем.

жанара06 жанара06    2   06.10.2019 00:20    0

Ответы
МарвиСК МарвиСК  09.10.2020 22:43

var m,s,b,a:integer;

begin

writeln ('Введите степень:');

read (m);

b:=3;

s:=1;

for a:=1 to m do begin

s:=s*b;

end;

writeln('3 в степени ',m,': ',s);  

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика