Question

Составьте на языке Pascal программу, определяющую какой из двух мешков тяжелее при условии, что масса первого из них (m1) вводится в килограммах, а второго (m2) - в пудах. 1 пуд = 16,38 кг​

Answer 1

Ответ:

var

m1, m2:real;

begin

write('Введите массу первого мешка (в кг): ');

read(m1);

write('Введите массу второго мешка (в пудах): ');

read(m2);

m2 := m2 * 16.38;

if m1 > m2 then writeln('Первый мешок тяжелее.')

else if m1 = m2 then writeln('Вес одинаковый.')

else writeln('Второй мешок тяжелее.');

end.