написать программу для рассчета стоимости покупки из 5 предметов, если цена каждого из предметов задается командой ввода. Программа должна быть понятна любому пользователю. turbo pascal
Answers & Comments
Plugin
Var p1, p2, p3, p4, p5:integer; uses crt; begin
writeln('Введите цену 1 товара:'); readln(p1);
writeln('Введите цену 2 товара:'); readln(p2);
writeln('Введите цену 3 товара:'); readln(p3);
writeln('Введите цену 4 товара:'); readln(p4);
writeln('Введите цену 5 товара:'); readln(p5);
writeln('Цена вашей покупки составляет ',p1+p2+p3+p4+p5);
Answers & Comments
uses crt;
begin
writeln('Введите цену 1 товара:');
readln(p1);
writeln('Введите цену 2 товара:');
readln(p2);
writeln('Введите цену 3 товара:');
readln(p3);
writeln('Введите цену 4 товара:');
readln(p4);
writeln('Введите цену 5 товара:');
readln(p5);
writeln('Цена вашей покупки составляет ',p1+p2+p3+p4+p5);
end.
P.S. Надеюсь на Лучший ответ.