Решаем задачи Абрамян на Паскале. If11

If11. Даны две переменные целого типа: $$A$$ и $$B$$. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных $$A$$ и $$B$$.

Решение:

program if11;
var
  A, B: Integer;
begin
  Write('Введите переменную A: ');
  Readln (A);

  Write('Введите переменную B: ');
  Readln (B);

  if A>B then B:=A
    else if A<B then A:=B
    else
      begin
        A:=0;
        B:=0;
      end;
  Writeln('Переменная A равна: ',A);
  Writeln('Переменная B равна: ',B);
end.

program if11;

var

A, B: Integer;

begin

Write('Введите переменную A: ');

Readln (A);

Write('Введите переменную B: ');

Readln (B);

if A>B then B:=A

else if A<B then A:=B

else

begin

A:=0;

B:=0;

end;

Writeln('Переменная A равна: ',A);

Writeln('Переменная B равна: ',B);

end.

Другие задачи из раздела If можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. If11

Комментарии:

Добавить комментарий Отменить ответ