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

Elena
Oct 24, 2020
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
Смежные вопросы: