Помогите программка Pascal abc

Помогите программка Pascal abc

Задать свой вопрос
2 ответа
Program n1;
var x: integer;
begin
readln(x);
if xlt;0 then writeln('отрицательное') else if xgt;0 then writeln('положительное');
if x=35 then x:=71 else if xlt;35 then x:=x-23;
write(x);
end.
Program limon4ick228;
var num:integer;
begin
writeln('Введите число');
readln(num);
if numgt;0 then
writeln('Число положительное')
else
writeln('Число отрицательное');
if num=35 then
num:=71;
if numlt;35 then
num:=num-23;
writeln(num);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт