Определите является ли целое число N делителем числа А?(с решением)
На Паскале это будет так:
Program Willa;
var
n,a:integer;
begin
write(Введите число A );
readln(a);
write(Введите число N );
readln(n);
writeln(**********************************);
if a mod n = 0 then writeln(число N является делителем числа А)
else writeln(число N НЕ является делителем числа А);
writeln(**********************************);
end.
Оцени ответ
