В Pascal ABC с помощью циклического алгоритма FOR нужно решить: 1) Найти количество…

var a,b,i,n: integer; Begin read (a,b); for i: =a to b do if i mod (3*4)=0 then n: =n+1; writeln (n); End.var n,i: integer; Begin for i: =1 to 99 do begin if (i div 10 <> 0) and (i div 10=n) or (i mod 10=n) then write (i,'); end; End.