Предмет: Информатика,
автор: skhdhdhsb
3. Составьте программу решения следующей задачи. С первой яблони сорвали одно яблоко, со второй — 2 яблока, с третьей 3 яблока, с четвертой- 4 яблока и т.д., и наконец, с пятнадцатой-15 яблок. Сколько яблок сорвали со всех 15-ти яблонь? Напишите программу вычисления
Ответы
Автор ответа:
2
Ответ:
Program apple;
var i,s:integer;
begin
for i:=1 to 15 do begin
s:=s+i;
end;
writeln('С 15-ти яблонь сорвали ',s,' яблок');
end.
skhdhdhsb:
это в какой программе???
Автор ответа:
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.
отметь ка лучший
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: Школьниктипичный007
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: navayi
Предмет: Математика,
автор: Костя45687