Question

Составь и запиши программу на языке Паскаль, которая, если введенное число отрицательное и кратно 4, меняет его на противоположное.
Дано целое двухзначное число. Вывести на экран "Первое больше", если цифра десятков больше цифры единиц.Срочно , решается четвертная и годовая оценка. Прошу писать программами на паскале

Answer 1

Ответ:

1)

var i:integer;

Begin

readln(i);

If (i < 0) and (i mod 4 = 0) then i:= i * -1;

write(i);

End.

2)

var i: integer;

Begin

readln(i);

if (i div 10) > (i mod 10) then write('Первое больше');

End.