Программы с условием - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы