Напечатайте на экране все двузначные числа, кратные данному числу k

Танюша

Задача: Напечатайте на экране все двузначные числа, кратные данному числу k.Помогите написать программу, не понимаю как это делается совсем. Если не сложно всю программу целиком.
1 ответ

Танюша

program Project3;
 
{$APPTYPE CONSOLE}
 
var
  i: byte;
  N: byte;
begin
  Write('Enter a (N)umber: ');
  Readln(N);
  for i:= 10 to 99 do
   if (i mod N) = 0 then
    WriteLn(i);
  ReadLn;
end.
update
program Project3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  i: byte;
  N: byte;
begin
  N:= 0;
  while (N < 10) or (N > 99) do
  begin
    Write('Enter a (N)umber (10..99): ');
    Readln(N);
  end;
  WriteLn('Divisible numbers for '+IntToStr(N)+' are:');
  for i:= 10 to 99 do
   if (i mod N) = 0 then
    WriteLn(i);
  ReadLn;
end.