Question

Решите задачу номер 4 в Паскале. Для ввода использовать for k to do

Answer 1

program aaa;
var
   n,k,z:integer;
begin
   readln(n);
   write('Все числа: ');
   for k:=100 to 999 do
      if(k div 100 + k mod 100 div 10 + k mod 10 = n) then begin
         write(k,' ');
         inc(z);
      end;
   writeln;
   writeln('Количество данных чисел - ',z);
end.