Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. Программа должна запросить цену
5-9 класс
|
тетрадей, цену обложек, и их количество вывести стоимость покупки.
program lol;
uses crt;
var
ct,co,sum:real;
ko,ky:integer;
begin
writeln('Введите кол-во терадей: ');
read(ky);
writeln('Введите цену за 1 тетрадь: ');
read(ct);
writeln('Введите кол-во обложек: ');
read(ko);
writeln('Введите цену за 1 обложку:');
read(co);
sum:=(ky*ct)+(ko*co);
writeln('Стоимость покупки = ', sum);
end.
Другие вопросы из категории
счисления основание N десятичное число 25 записывается как 100. Найдите основание.
Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу.Числа, следующие за числом 0, считывать не нужно.
у меня есть такой вариант но нужен еще один
readln(a);begin
if a > 0 then
if (max = 0) or (a > max) then
begin
max := a;
k := 1 end
else if a = max then
inc(k);
end;
until a=0;
write(k);
end.
Читайте также
а) вычисления среднего арифметического переменных x1 и x2,
б) уменьшения на единицу значения переменной k
в) увеличение на еденицу значения переменной i
г) вычисления стоимости покупки, состоящей из нескольких тетрадей, нескольких ручек и нескольких карандашей.
в 5% - если сумма больше 1000 руб. Фрагмент программы: if x>500 then y:=0.97*x; if x>1000 then y:=0.95*x;