Даны два числа вводимые пользователями сравните их , если первое больше второго, второе увеличить в два раза или на оборот увеличить первое.
Нужна программа на Паскале и Блок схема.
Нужна программа на Паскале и Блок схема.
More Questions From This User See All
Answers & Comments
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.