Узнать количество стульев - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

В одном амфитеатре есть ряды со стульями. В первом ряду n стульев, каждый ряд увеличивается на 2 стула. Узнать количество стульев в последнем ряду. Узнать количество стульев в амфитеатре. Вот что я уже собрал.
Вопрос в том, как узнать обшее количество стульев. Заранее спасибо.

Решение задачи: «Узнать количество стульев»

textual
Листинг программы
var i,sum:integer;
    c,r,s,n:integer;
begin
writeln('Количества рядов');
readln(r);
writeln('Количества стульев в первом ряду');
readln(c);
n:=c;
sum:=c;
for i:=2 to r do
 begin
  n:=n+2;
  sum:=sum+n;
 end;
writeln('количество стульев в последнем ряду=',n);
writeln('всего стульев=',sum)
end.

Объяснение кода листинга программы

  1. Создаются переменные i, sum, c, r, s и n, которые будут использоваться в коде.
  2. Выводится сообщение Количества рядов и считывается значение переменной r.
  3. Выводится сообщение Количества стульев в первом ряду и считывается значение переменной c.
  4. Значение переменной n устанавливается равным значению переменной c.
  5. Значение переменной sum устанавливается равным сумме значения переменной c и n.
  6. Запускается цикл for, который будет выполняться от 2 до r (включительно).
  7. Внутри цикла значение переменной n увеличивается на 2, а значение переменной sum увеличивается на n.
  8. После завершения цикла выводится сообщение количество стульев в последнем ряду=, значение переменной n, и выводится сообщение всего стульев=, значение переменной sum.

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


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

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

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