Даны два числа вводимые пользователями сравните их , если первое больше второго, второе увеличить в два раза или на оборот увеличить первое. нужна программа на паскале и блок схема.
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.
Итак первые два символа кодируются кодовыми словами 0 и 10. Найдём для оставшихся трех символов наиболее короткое представление, удовлетворяющее условию Фано. Из двузначных чисел можно взять 11, но тогда невозможно подобрать трехзначное число для четвертого символа, по этому не берем. Единственное подходящее трехзначное число - 110 (111 не подходит по той же причине. что и 11). Аналогично выбираем числа 1110 и 11110. В итоге получается ряд: 0, 10, 110, 1110, 11110. Общая длина = 1+2+3+4+5=15
Итак первые два символа кодируются кодовыми словами 0 и 10. Найдём для оставшихся трех символов наиболее короткое представление, удовлетворяющее условию Фано. Из двузначных чисел можно взять 11, но тогда невозможно подобрать трехзначное число для четвертого символа, по этому не берем. Единственное подходящее трехзначное число - 110 (111 не подходит по той же причине. что и 11). Аналогично выбираем числа 1110 и 11110. В итоге получается ряд: 0, 10, 110, 1110, 11110. Общая длина = 1+2+3+4+5=15
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.