Составить и записать программу подсчета стоимости покупок не менее 10 видов товара.
10-11 класс
|
Pascal
program tovar;
var i,k:integer; t,s:real;
begin
s:=0;
writeln ('Vvedit kol-vo tovara');
readln (k);
for i:=1 to k do
begin
writeln ('Vvedit stoimost',i,'-go tovaru');
readln (t);
s:=t+s;
end;
writeln ('stoimost pokupok-',s);
readln
end.
Другие вопросы из категории
заканчиваются на 3. Определите основание системы счисления.
2)
2)Возведение степени a в степень n, с помощью while
Читайте также
единиц каждого вида товара соответственно. Составе алгоритм вычисления общей стоимости всех покупок
единиц каждого вида товара соответственно.Составьте алгоритм вычисления общей стоимости всех покупок. Массив в Бейсике
настоящий момент в совет входит N чесовек, из них К родителей. Определите, сколько родителей нужно дополнительно ввести в совет, чтобы их число стало составлять не менее трети от числа членов совета.
Программа получает на вход два целых числа N и К (N>0, 0<=K<=N), записанные в отдельных строках, - текущее число члено совета и числао родителей в совете.
Программа должна вывести единственное число - минимальное число родителей, которое необходимо ввести в совет.
Напиши программу, вычисляющую периметр и площадь прямоугольника. Используй для этого длину и ширину прямоугольника, которые вводятся с клавиатуры.
Задание #2
Напиши программу, вычисляющую стоимость покупки с учетом 10 %-й скидки, которая предоставляется только в том случае, если сумма покупки больше 1000 рублей.
Задание #3
Напиши программу, вычисляющую сумму всех четных чисел от 1 до N.
Задание #4
Напиши программу, вычисляющую среднее арифметическое заранее созданного массива случайных чисел из 10 элементов.