Написать программу вычесления стоимости покупк,состоящей из нескольких тетрадей и токого же кол-во обложек к ним.Ниже представлен рекамендующий вид
10-11 класс
|
экрана во время работы программы вычесления стоимости покупки введите исходные даные:
цена тетради (руб)-2.75
цена карандаша(рую)-0.5
кол-во комплектов(шт)-7
стоимость покупки-22.75 руб!
Program pr;
uses crt;
Var a,b,s:real;
с:integer;
Begin
Write('цена тетради(руб)-');
read(a);
Write('цена обложки(руб)-');
read(b);
Write('кол-во комплектов(шт)-');
read(c);
s:=(a+b)*c;
Writeln('стоимость покупки-',s,' руб');
readln;
end.
Program Pokupka;
Uses crt;
var n:longint; {кол-во комплектов}
b,c,i: integer; {цена 1 тетради и 1обложки соответственно}
price:real; {общая стоимость покупок}
begin
clrscr;
write('Введите цену 1 тетради:');
readln(b);
write('Введите цену 1 обложки :');
readln(c);
write('Введите количество комплектов :');
readln(n);
price:=(b*n)+(c*n);
writeln('Общая стоимость покупок: ',price:4:4);
readkey;
end.
Другие вопросы из категории
Просто умоляю вас
Задание 1: Посчитайте, сколько всего компьютеров может быть в Интернете. Расчет с необходимыми пояснениями запишите в тетрадь.
Задание 2: При помощи любой известной вам поисковой системы определите число документов Интернет, в которых цитируется описание IP. Попробуйте найти собственно описание протокола. (документ RFC - 791)
десятичную,
- 4007 из десятичной в восьмеричную,
- 4007 из десятичной в двоичную.
создания массива случайных чисел.
начало
создание массива Tabl
z:=a[1]
i:=2,n
Max(z, a[i],z)
вывод Max
конец
Читайте также
Количество ввести при помощи оператора READ/
Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные,
введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена
одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) ->
2.3
Стоимость покупки: 19.55 руб.
(данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) -> 2.3
Стоимость покупки: 19.55 руб.