Регистрация
гребок
31.07.2020 21:33
Информатика
Есть ответ 👍

Помогите выполнить практическое задание в MS Excel

154
202
Посмотреть ответы 1

Ответы на вопрос:

tim2003np0acpp
tim2003np0acpp
4,8(93 оценок)

program deliteli;

var a,b:integer;

begin

write('Введите два целых числа: ');

readln(a,b);

if (a=0) or (b=0) then writeln('Одно из чисел =0 (или оба)')

else if a=b then writeln ('Числа равны')

else if (a mod b=0) then writeln (a,' делится на ',b)

else if (b mod a=0) then writeln (b,' делится на ',a)

else writeln('Эти числа не делятся друг на друга');

readln

end.

Популярно: Информатика