Написать программу на паскале по "найти все двузначные числа, которые при умножении на 2 заканчиваются на 8, а при умножении на 3 - на 4."

vari: integer; beginfor i : = 10 to 99 doif *i) mod 10) = 8) and *i) mod 10) = 4) thenwrite(i,' '); end.

p.s таких чисел нет

а) 400 * 2,5 = 1000 кб

б) 64 : 2,5 = 25,6 = 25 страниц

в) нужен   диск - cd-r или cd-rw

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.