Программы с условием - Pascal ABC
Формулировка задачи:
Написать две программы: одну программу с оператором 'while', другую программу с оператором 'repeat'.
Задача: написать программу, выводящую на экран таблицу степеней числа 3.
Решение задачи: «Программы с условием»
textual
Листинг программы
var n,i,s:Longint;
begin
repeat
write('Сколько степеней числа 3 вывести от 1 до 20 n=');
readln(n);
until n in [1..20];
//от 3^0 до 3^19, дальше выход за пределы типа Longint
//цикл while
s:=1;
i:=0;
while i<n do
begin
writeln('3^',i,'=',s);
s:=s*3;
i:=i+1;
end;
//цикл repeat
s:=1;
i:=0;
repeat
writeln('3^',i,'=',s);
s:=s*3;
i:=i+1;
until i=n;
end.