Question

Помогите пожалуйста, информатика

Answer 1

Pascal ABC:

var i, count:integer;
begin
count:=0;
for i:=1 to 400 do
begin
if i mod 3=0 then
begin
writeln(i,' ');
count:=count+1;
end;
end;
writeln('Количество: ',count);
end.