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.
отметь ка лучший
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад
8 лет назад