Есть 4 числа a b c d. Число a умножается на число b а число с умножается на число d. Вывести на экран большее поизведение
Ответы
Ответ дал:
0
var
a, b, c, d, p1, p2: integer;
begin
readln(a, b, c, d);
p1 := a * b;
p2 := c * d;
if p1 > p2 then writeln(p1)
else writeln(p2);
end.
a, b, c, d, p1, p2: integer;
begin
readln(a, b, c, d);
p1 := a * b;
p2 := c * d;
if p1 > p2 then writeln(p1)
else writeln(p2);
end.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад