Ответы
Ответ дал:
0
var a,b,c,d: integer;
begin
write('числа a,b,c через пробел: ');
readln(a,b,c);
if b>a then
begin
d:=a;
a:=b;
b:=d;
end;
write('произведение: ');
if b>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 b>a then
begin
d:=a;
a:=b;
b:=d;
end;
write('произведение: ');
if b>c then write(a*b)
else writeln(a*c);
end.
числа a,b,c через пробел: 11 4 15
произведение: 165
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад