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

Нужна программа на Паскале и Блок схема.

Question

Информатика

Абдулбакар

4 сентября, 09:28

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

Нужна программа на Паскале и Блок схема.

+4

Ответы (1)

Знаете ответ?

Авбикир · Answer 1

Program z1;

var a, b:integer;

begin

writeln ('Введите первое число:') ;

readln (a) ;

writeln ('Введите второе число:') ;

readln (b) ;

if a>b then

begin

b:=b*2;

writeln (b) ;

end;

if b>a then begin

a:=2*a;

writeln (a) ;

end;

end.