Помогите пожалуйста, информатика
Дополнительные материалы:
Ответ
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.
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.