Kod: program Untitled; uses crt; var dzialka, worek, masawor : integer; wielkosc, cena : Real; wynik, wielkosc2 : Real; begin clrscr; worek := 600; writeln('*** Kalkulator obsiewu trawy ***'); writeln(' '); readln; clrscr; writeln('Podaj wielkosc dzialki w arach'); readln(dzialka); wielkosc := dzialka*100; wynik := (wielkosc/worek); writeln('Ilosc wykorzystanych workow : ', wynik:3:1, ' szt'); { Ilosc kilgoramow } masawor := 15; writeln('Kilogramy trawy : ', masawor*wynik:5:2, ' kg'); { Cena } wielkosc2 := wielkosc/600; cena := 244; writeln('Koszt calego obsiewu : ', cena*wielkosc2:4:2, ' zl'); readln; end.
Спасибо за ваше известие. Мы ценим ваш комментарий и готовы для вас посодействовать. Если у вас есть какие-либо дополнительные вопросы или необходима дополнительная информация, не стесняйтесь требовать. Вместе мы создадим наш форум еще как никакого другого! https://atehno.md/products/vga-giga...morie-192-bit-frecventa-memorie-9857901662070