program ninok134; uses crt; var c: real; n: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); writeln('программа вычисляет стоимость партии товара '); writeln(); write('введите n - количество единиц товара'); readln(n); write('введите c - стоимость единицы товара'); readln(c); writeln(); writeln('стоимость общей партии товара равна ',c*n,' руб '); end.
Поделитесь своими знаниями, ответьте на вопрос:
Составьте программу в паскале, определяющую s - стоимость партии товара, состоящей из n единиц , если цена каждой единицы товара - c результат должен быть показан фарзой: стоимость общей партии товара равна руб.
program tovar;
var s, n, c: integer;
begin
write ('сколько единиц товара закупили? ');
read (n);
write ('какова цена товара? ');
read (c);
s: =c*n;
write ('стоимость общей партии товара равна', s, 'руб.');
end.