Var n,i:integer;
begin
read(n);
i:=1;
repeat
begin
if i mod 3=0 then
writeln(i);
end;
i:=i+1;
until n<i
end.
1)57.625
2)137.52
3)2F.088
4)20СА8
решение расписывать лень, если нужно то вот сайтик, там и объясняется всё
http://math.semestr.ru/inf/index.php:
Трагтостроеник не хочу тебя увидеть и я