Предмет: Информатика,
автор: Kate9436
Дана последовательность чисел 1, 4, 7, 10, 13, 16........ Считать сумму всех элементов этой последовательности до тех пор пока она не достигнет 1000
Ответы
Автор ответа:
1
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.
begin
a:=4;
s:=0;
while a<=1000 do
begin
s:=s+a;
a:=a+3;
end;
writeln(s)
end.
Интересные вопросы
Предмет: Русский язык,
автор: darinabessolova
Предмет: Русский язык,
автор: dima678435
Предмет: Русский язык,
автор: YuliaFof
Предмет: История,
автор: Стаська001
Предмет: История,
автор: Стаська001