Question

7. Запиши программный код задачи. Даны два числа А и В. Если А больше В, то А удвоить, если В больше А , то В увеличить на 10. *

Answer 1

Ответ:

program test;

var a,b:real;

begin

readln(a,b);

 if (a>b) then

 begin

 a := a*2;

 writeln('Итоговое значение а = ', a);

end;

 

if (b>a) then

begin

  b := b*10;

  writeln('Итоговое значение б = ', b);

end;

end.

Объяснение:

1) Сначало получаем значение а и б от пользователя, с помощью readln(a,b);

2) Исходя из значения, мы получаем либо а больше б, либо б больше а.

3) В конце выводим значение переменной в консоль с помощью writeln().