Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Pascal Дано три целых числа. Вывести на экран те, для которых число А будет делителем.
Срочно помогите

Ответ оставил Гость

Var  a, b, c, d: integer;
begin
  read(a, b, c, d);
  if(b mod a = 0) then writeln(b);
  if(c mod a = 0) then writeln(c);
  if(d mod a = 0) then writeln(d);
end.