Даны 2 целых числа а и b выяснить делится ли число

Даны 2 целых числа а и b выяснить делится ли число а на b или b на а;если делится то вывести ответ на экран,если нет то вывести сумму этих чисел.

Плииииииз)

Задать свой вопрос
Евгений Вац
в какой программке это надобно делать
Кречкин Владик
любое число можно поделить на другое, а нацело не любое
Артемий
Паскаль
1 ответ

var a,b:integer;

begin

write('a='); readln(a);

write('b='); readln(b);

if a mod b =0 then writeln('a/b=',a div b);

if b mod a =0 then writeln('b/a=',b div a);

if not(a mod b =0) and not(b mod a =0) then writeln('a+b=',a+b);

end.


Лидия Цирюхина
а знаете есть такое слово else
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт