Предмет: Информатика,
автор: анна1814
найти произведение 2х максимальных чисел из 3х
Ответы
Автор ответа:
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
Интересные вопросы
Предмет: Геометрия,
автор: helpe32r
Предмет: Қазақ тiлi,
автор: sparky13
Предмет: Математика,
автор: kamilapritsker2809
Предмет: Химия,
автор: aikenbeiker