Question

3. Составьте программу решения следующей задачи. С первой яблони сорвали одно яблоко, со второй — 2 яблока, с третьей 3 яблока, с четвертой- 4 яблока и т.д., и наконец, с пятнадцатой-15 яблок. Сколько яблок сорвали со всех 15-ти яблонь? Напишите программу вычисления

Answer 1

Ответ:

Program apple;

var i,s:integer;

begin

for i:=1 to 15 do begin

 s:=s+i;

 end;

writeln('С 15-ти яблонь сорвали ',s,' яблок');

end.

Answer 2

Ответ:

program apple;

var i,s: integer;

begin

s:=0;

for i:= 1 to 15 do

s:=s+i;

writeln ('Vsego sorvano ', s, ' yablok');

readln;

end.

отметь ка лучший