Задание:
Турбо паскальСреди всех трехзначных чисел найти те у которых первая цифра равна трем.
Решение:
Var i: integer; begin for i=100 to 999 do if i div 100=3 then writeln (i,'); end.
Знаете другой ответ?
Турбо паскальСреди всех трехзначных чисел найти те у которых первая цифра равна трем.
Var i: integer; begin for i=100 to 999 do if i div 100=3 then writeln (i,'); end.
Знаете другой ответ?