Программа считывает A, B, K, M. Учитывая, что A, B, K, M могут быть дробными, и стоимость может быть одинаковой. Язык программирования: Паскаль.
var A, B, K, M : real; begin readln (A); readln (B); readln (K); readln (M); if B / A > M / K then writeln ('Первая ткань дороже на', B / A - M / K, 'рублей'); if M / K > A / B then writeln ('Вторая ткань дороже на', M / K - A / B, 'рублей'); if B / A = M / K then writeln ('Стоимость тканей одинаковая'); end.
1) 0,4 кг =400 гр -это 100% , 1%=400:100=4гр, следовательно 15% = 15*4=60 грамм, 60 гр составляют 1/5 часть конфет, значит 1 целая конфет = 60*5=300 гр. , тогда вес коробки= 400-300=100 гр.
2) аналогично: 50 кг - это 100%, тогда 1%=50:100=0,5 кг, отсюда 45%=0,5*45=22,5 кг и это половина всех конфет, значит все конфеты весили 22,5*2=45 кг, тогда ящик весит 50-45=5 кг
3) 60 кг = 100%, 24%=60:100*24=14,4 кг-это четверть конфет, значит все конфеты весили 14,4*4=57,6 кг, тогда ящик весит 60-57,6=2,4 кг
Программа считывает A, B, K, M.
Учитывая, что A, B, K, M могут быть дробными, и стоимость может быть одинаковой.
Язык программирования: Паскаль.
var
A, B, K, M : real;
begin
readln (A);
readln (B);
readln (K);
readln (M);
if B / A > M / K then
writeln ('Первая ткань дороже на', B / A - M / K, 'рублей');
if M / K > A / B then
writeln ('Вторая ткань дороже на', M / K - A / B, 'рублей');
if B / A = M / K then
writeln ('Стоимость тканей одинаковая');
end.