Дана программа program appl; var c, v: real; {цена и вес яблок} st: real; {стоимость покупки} begin writeln('вычисление стоимости покупки.'); writeln('введите исходные данные: '); write('цена 1 кг яблок (> '); readln(c); write('вес яблок (кг)-> '); readln(v); st : = v * c; writeln('cтоимость покупки: ', st: 6: 2, ' руб'); end. что такое writeln('cтоимость покупки: ', st: 6: 2, ' руб');
С - задает цену за 1 кг
V - задает сколько всего кг будет купленно
Потом все это перемножаем и заносим в переменную st и ее выводим ее на экран