Question

С клавиатуры вводятся два целых числа. Вывести на экран YES, если большее из чисел делится на меньшее без остатка и NO - в противном случае.Напишите программу на паскаль

Answer 1

Ответ:

Program Z;

var a,b:integer;

BEGIN

     write('Задайте два целых числа: ');

     read(a,b);

     if a>b then if a mod b=0 then write('YES') else write('NO')

               else if b mod a=0 then write('YES') else write('NO');

END.

Объяснение: Программа написана на Паскаль ABC