Даны целые числа A и B. Нужно найти, является ли число

Даны целые числа A и B. Нужно определить, является ли число А кратным числу B

Задать свой вопрос
Denis
Паскаль?
София
паскаль abs
1 ответ
Var A,B: integer;
begin
writeln("Введите А");
readln(A);
writeln("Введите B");
readln(B);
if (A mod B = 0) then
writeln("А кратно В");
else
writeln("А некратно В");
end.

Егубов Олег
спасибо громадное)
Рубенок Шурик
Вводится возраст человека. Вывести имеет ли право человек голосовать (голосовать начинают с 18 лет), если не имеет, то вывести, сколько лет ему надобно подождать. а с этим как быть?
Данил Могильщиков
var a: integer;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт