Задание:
Используя оператор вывести на экран циклические окружности! Решить в паскале abc
Решение:
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.
Знаете другой ответ?