[Konrad]

Сообщение от Konstie

со сменными a,b типа real

И как ты собираешся вычислять делится ли число 35,545366766 на 3 без остачи?

Можно округлить же а и б и получим тип integer;

И так что мы имеем:

1. (i mod 3)=0

2. for i:=17 to 48 do