Поиск
 
Найдено: 1
Область поиска: теги — продукции [x] writeln [x]

Обработка экономической информации средствами языка Pascal

... будет равно q repeat writeln ('введи текущий номер продукции… '); readln (a. n); writeln ('введи переходящий остаток продукции на начало года… '); readln (a. e1); writeln ('введи приход продукции… '); readln (a. e2); writeln ('введи расход… ') ;readln (a. e3); writeln ('введи цену за 1 шт… ') ;readln (a. e4); write (f, a); until (a. n=q); Очистка экрана и вывод ...