Задание:
ПО ПАСКАЛЮ Стоимость А метров серой ткани равна В тенге, а стоимость К синей ткани равна М тенге. Какая ткань дорожеи на сколько?
Решение:
var A, B, K, M: integer; begin write ('A='); readln (A); write ('B='); readln (B); write ('K='); readln (K); write ('M='); readln (M); if B / A > M / K then writeln ('Серая ткань дороже синей на ', B / A — M / K, ' тенг за метр') else writeln ('Синяя ткань дороже серой на ', M / K — B / A , ' тенг за метр'); end.
Знаете другой ответ?