Рис расфасован в 2 пакета. Вес первого - m кг, второго - n кг. Составить программу, определяющую: а) какой пакет тяжелее? б) бес более тяжёлого пакета.
Язык программирования: Паскаль
а)
var
m, n : integer;
begin
readln (m);
readln (n);
if m > n then
writeln (Первый пакет тяжелее);
if n > m then
writeln (Второй пакет тяжелее);
end.
б)
var
m, n : integer;
begin
readln (m);
readln (n);
if m > n then
writeln (Вес более тяжёлого пакета равен , m, кг);
if n > m then
writeln (Вес более тяжёлого пакета равен , n, кг);
end.
Оцени ответ
