Нужно составить программу (Pascal) определяющую является ли число А кратным числу В.
var a,b: integer;beginreadln(a);readln(b);if (a mod b)=0 thenwriteln('Число кратно')else writeln('Число не кратно');end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b: integer;
begin
readln(a);
readln(b);
if (a mod b)=0 then
writeln('Число кратно')
else writeln('Число не кратно');
end.