Задание:
Даны 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.
Знаете другой ответ?