Question

Вывести в порядке убывания трёхзначные числа кратные 12, подсчитать из количество и произведение на Pascal

Answer 1

Ответ:

program Num12;

var

 i, n, c: Integer;

 p: Double;

begin

 c := 0;

 p := 1;

 for i := 83 downto 9 do begin

   n := i * 12;

   Write (n, ' ');

   Inc (c);

   p := p * n;

 end;

 WriteLn;

 WriteLn ('Количество = ', c);

 WriteLn ('Произведение = ', p);

 ReadLn;

end.