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.
Поделитесь своими знаниями, ответьте на вопрос: