Даны целые числа A и B. Требуется определить, является ли число А кратным числу B
Answers & Comments
BeastMachine
Var A,B: integer; begin writeln("Введите А"); readln(A); writeln("Введите B"); readln(B); if (A mod B = 0) then writeln("А кратно В"); else writeln("А некратно В"); end.
russia20166
Вводится возраст человека. Вывести имеет ли право человек голосовать (голосовать начинают с 18 лет), если не имеет, то вывести, сколько лет ему надо подождать. а с этим как быть?
Answers & Comments
begin
writeln("Введите А");
readln(A);
writeln("Введите B");
readln(B);
if (A mod B = 0) then
writeln("А кратно В");
else
writeln("А некратно В");
end.
не имеет, то вывести, сколько лет ему надо подождать. а с этим как быть?