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.

Answer 2

Конечно, вот программа на языке Паскаль, которая выполняет указанные действия:

pascalCopy code
program Main;
var
  number: integer;
begin
  writeln('Введите целое двухзначное число:');
  readln(number);

  if (number < 0) and (number mod 4 = 0) then
    number := -number;

  if (number div 10 > number mod 10) then
    writeln('Первое больше')
  else if (number div 10 < number mod 10) then
    writeln('Второе больше')
  else
    writeln('Цифры равны');

  readln;
end.

Программа сначала просит пользователя ввести целое двухзначное число, затем проверяет его на отрицательность и кратность 4. Если число соответствует этим условиям, оно меняется на противоположное. Затем программа сравнивает цифры десятков и единиц и выводит соответствующее сообщение на экран.