Ответы
Ответ дал:
0
Program apkar007;
var n,i,sum:integer;
s:string;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
writeln;
write('Введите N = ');readln(n);
sum:=0;i:=3;
while i<=n do
begin
sum:=sum+i;
i:=i+3;
end;
writeln('Сумма натуральных чисел от 1 до ',n,', кратных 3, равна ',sum);
end.
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018
Внимание! Если программа не работает, обновите версию!
begin
Range(3,ReadInteger('n='),3).Sum.Println
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
8 лет назад