Задачи в Паскаль.
1.С клавиатуры вводятся два числа А и В. Меньшее из этих чисел заменить их полусуммой, а большее удвоенным произведением.
2. Введены 3 числа, найти наибольшее.
1.С клавиатуры вводятся два числа А и В. Меньшее из этих чисел заменить их полусуммой, а большее удвоенным произведением.
2. Введены 3 числа, найти наибольшее.
More Questions From This User See All
Answers & Comments
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.
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.