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

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

Question

Информатика

Марек

11 ноября, 04:04

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

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

+1

Ответы (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.