Задачи в Паскаль.
1.С клавиатуры вводятся два числа А и В. Меньшее из этих чисел заменить их полусуммой, а большее удвоенным произведением.
2. Введены 3 числа, найти наибольшее.
Первое:
Program nechet;
var a,b:real;
begin
readln(a);
readln(b);
if awriteln(Первое число=,(a+b)/2, Второе число=, (a*b)*2)
else
writeln(Первое число=,(a*b)*2, Второе число=, (a+b)/2)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
