Дана последовательность чисел 1, 4, 7, 10, 13, считать сумму всех элементов этой последовательности до тех пор пока она не достигнет 1000

виктория907 виктория907    1   26.06.2019 10:10    3

Ответы
JlU40K JlU40K  21.07.2020 09:24
Var a,i,s:integer;
begin
a:=4;
s:=0;
while a<=1000 do
begin
s:=s+a;
a:=a+3;
end;
writeln(s)
end.
ПОКАЗАТЬ ОТВЕТЫ