Узнать количество стульев - 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.
Объяснение кода листинга программы
- Создаются переменные i, sum, c, r, s и n, которые будут использоваться в коде.
- Выводится сообщение
Количества рядов
и считывается значение переменной r. - Выводится сообщение
Количества стульев в первом ряду
и считывается значение переменной c. - Значение переменной n устанавливается равным значению переменной c.
- Значение переменной sum устанавливается равным сумме значения переменной c и n.
- Запускается цикл for, который будет выполняться от 2 до r (включительно).
- Внутри цикла значение переменной n увеличивается на 2, а значение переменной sum увеличивается на n.
- После завершения цикла выводится сообщение
количество стульев в последнем ряду=
, значение переменной n, и выводится сообщениевсего стульев=
, значение переменной sum.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д