Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

Написать программу вычесления стоимости покупк,состоящей из нескольких тетрадей и токого же кол-во обложек к ним.Ниже представлен рекамендующий вид

10-11 класс

экрана во время работы программы вычесления стоимости покупки введите исходные даные:

цена тетради (руб)-2.75

цена карандаша(рую)-0.5

кол-во комплектов(шт)-7

стоимость покупки-22.75 руб!

LembaS 14 сент. 2016 г., 14:27:23 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Drago2003
14 сент. 2016 г., 15:47:48 (7 лет назад)

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.

+ 0 -
Shaxzodik99
14 сент. 2016 г., 17:23:59 (7 лет назад)

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 из восьмеричной в десятичную систему, - 1111 из двоичной в

десятичную,

- 4007 из десятичной в восьмеричную,

- 4007 из десятичной в двоичную.

Составить программу нахождения наибольшего элемента в линейном массиве, используя вспомогательные процедуры нахождения наибольшего из двух чисел и

создания массива случайных чисел.

начало
создание массива Tabl
z:=a[1]
i:=2,n
Max(z, a[i],z)
вывод Max
конец

Читайте также

Написать программу вычисления стоимости некоторого количества (по весу) яблок.

Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные,
введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена
одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) ->
2.3
Стоимость покупки: 19.55 руб.

Написать программу вычисления стоимости некоторого количества (по весу) яблок. Ниже приведен рекомендуемый вид экрана во время выполнения программы

(данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление стоимости покупки.
Введите исходные данные:
Цена одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) -> 2.3
Стоимость покупки: 19.55 руб.



Вы находитесь на странице вопроса "Написать программу вычесления стоимости покупк,состоящей из нескольких тетрадей и токого же кол-во обложек к ним.Ниже представлен рекамендующий вид", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.