Предмет: Информатика, автор: kseniya0203101

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

Ответы

Автор ответа: XEKER

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

kseniya0203101: там без else нужно

XEKER: Второе задание. Первое сейчас поправлю
Program nechet;
var a,b,c:real; i:integer;
begin
readln(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.

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

kseniya0203101: Cgfcb,j)

kseniya0203101: Спасибо)

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