Задание:
22. Составить программу, проверяющую длится ли введенное с клавиатуры число x на введенное с клавиатуры число y без остатка илинет.
Решение:
program abc; var x, y: integer; begin writeln ('Введите X: '); readln (x); writeln ('Введите Y: '); readln (y); if (x mod y)=0 then writeln (x, ' делится на ', y, ' без отстатка.') else writeln (x, ' делится на ', y, ' с отстатком.'); readln; end.
Знаете другой ответ?