Задачи в Паскаль.
1.С клавиатуры вводятся два числа А и В. Меньшее из этих чисел заменить их полусуммой, а большее удвоенным произведением.
2. Введены 3 числа, найти наибольшее.

Второе задание. Первое сейчас поправлюProgram nechet;var a,b,c:real; i:integer;beginreadln(a);readln(b);readln(c);if (a>b) and (a>c) then writeln(a);if (c>b) and (c>a) then writeln(c);if (b>a) and (b>c) then writeln(b);end.

Ты точно уверена, что без "else" нужно? Просто без него никак не получается. Скорее всего ты ошиблась.

Cgfcb,j)

Спасибо)

Добавь на лучший ответ, если не сложно?)

Первое: Program nechet;var a,b:real;beginreadln(a);readln(b);if a<b then writeln('Первое число=',(a+b)/2, ' Второе число=', (a*b)*2)else writeln('Первое число=',(a*b)*2, ' Второе число=', (a+b)/2)end.