Программы с условием - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д