Question

Турбо паскаль
Среди всех трехзначных чисел найти те у которых первая цифра равна трем.

Answer 1

var i:integer;
begin
 for i=100 to 999 do if i div 100=3 then writeln(i,'  ');
end.