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

Question

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

Answer 1

79

vovanyeban

18 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: