1 2 3 4 5 6 7 8 9 10 11 12 | clsinput "kolichestvo seroy tkani"; a? "tsena za"; a; "metrov seroy tkani";input binput "kolichestvo goluboy tkani"; k? "tsena za"; k; "metrov goluboy tkani";input ms=a/bs2=k/mif s-s2=0 then ? "tseny ravny"if s-s2>0 then ? "seraya tkan doroge na"; s-s2; "za metr"if s-s2<0 then ? "golubaya tkan doroge na"; s-s2; "za metr" |
Тестирование выполнено в программе QB64 ( Скачать )