Регистрация
АлисияАлисия
12.10.2020 22:06
Информатика
Есть ответ 👍

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

169
343
Посмотреть ответы 3

Ответы на вопрос:

newvf
newvf
4,5(82 оценок)

Program apple;

var i,s:integer;

begin

for i:=1 to 15 do begin

 s:=s+i;

 end;

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

end.

andrei79smirnov
andrei79smirnov
4,6(71 оценок)

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.

отметь ка лучший
dianka27091987
dianka27091987
4,7(98 оценок)
Ятак понимаю это паскаль, и это связано с тем, что где-то лишнее ; или наоборот, не хватает ;

Популярно: Информатика