Сенявин
6 год назад
Найти произведение 2х максимальных чисел из 3х
ОТВЕТЫ
Фотий
Jul 3, 2019
Var a,b,c,d: integer;
begin
write(числа a,b,c через пробел: );
readln(a,b,c);
if bgt;a then
begin
d:=a;
a:=b;
b:=d;
end;
write(произведение: );
if bgt;c then write(a*b)
else writeln(a*c);
end.
числа a,b,c через пробел: 11 4 15
произведение: 165
begin
write(числа a,b,c через пробел: );
readln(a,b,c);
if bgt;a then
begin
d:=a;
a:=b;
b:=d;
end;
write(произведение: );
if bgt;c then write(a*b)
else writeln(a*c);
end.
числа a,b,c через пробел: 11 4 15
произведение: 165
18
Смежные вопросы:
