ТутРешу.Ру

Даны 2 числа. Отрицательные числа уменьшить…

Задание:

Даны 2 числа. Отрицательные числа уменьшить на 1. Программу для Паскаля, пожалуйста, напишите

Решение:

Program 1; var x,y: integer; beginwrite ('Введете 2 числа'); readln (x,y); if x<0 then writeln (y-1); if y<0 then writeln (x-1) else write ('Таких чисел нет'); readln; end.




Знаете другой ответ?

Отправить свой ответ