var x: integer;
begin
Write('Ведите целое число: '); ReadLn(x);
if x >= 0 then x := x + 3 else x := x - 2;
WriteLn('x = ', x);
end.
Написать программу для нахождени
посчитайте с информатикой, раб
Python: напишите программу, кото
посчитайте ....................
Мeждy нaсeлeнными пyнктaми А, В,