Регистрация
Войти
Стать экспертом Правила
Информатика

Напишите программу на языке Паскаль.Даны два целых числа a и b, если а больше b, то из a вычесть b. Если b больше а, то к b прибавить 10. Если числа равны, то посчитать произведение этих чисел.

ОТВЕТЫ

program n1;

var  

a, b :integer;

begin

read(a, b);

if a>b then

writeln(a-b);

if a=b then

writeln(a*b);

if a<b then

writeln(b+10);

end.

103
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам