ответ:Var
n,s:integer;
begin
n:=3; s:=0;
while n<=100 do begin
s:=s+n;
n:=n+3
end;
Writeln('S=',s)
end.
Результат
S=1683
Первое число, кратное 3 - это само число 3. А дальше по 3 прибавляем...
Неограниченные возможности для обучения без рекламы со Знаниями Плюс
ПОПРОБУЙ СЕГОДНЯ
Нажми, чтобы рассказать другим, насколько ответ полезен
3,0
Объяснение:
ответ:Var
n,s:integer;
begin
n:=3; s:=0;
while n<=100 do begin
s:=s+n;
n:=n+3
end;
Writeln('S=',s)
end.
Результат
S=1683
Первое число, кратное 3 - это само число 3. А дальше по 3 прибавляем...
Неограниченные возможности для обучения без рекламы со Знаниями Плюс
ПОПРОБУЙ СЕГОДНЯ
Нажми, чтобы рассказать другим, насколько ответ полезен
3,0
Объяснение: