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

1

Ответы и объяснения

  • KGW
  • умный
2013-12-22T07:25:40+00:00
Program 1;
var x,y:integer;
begin
write('Введете 2 числа');
readln(x,y);
if x<0 then writeln(y-1) ;
if y<0 then writeln(x-1) else write('Таких чисел нет');
readln;
end.