Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
VladislavBuryy
10.04.2022 08:41 •
Информатика
Написать программу на паскале для вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. результат должен выводиться в денежном формате, например, 145руб. 30коп.
Показать ответ
Ответ:
Sadovnik11
08.10.2020 12:00
Program n_5;
var
a, b: real;
c: integer;
begin
write('Введите стоимость тетради - '); readln (a);
write('Введите стоимость обложки - '); readln (b);
write('Введите кол-во тетрадей - '); readln (c);
if (a <= 0) or (b <= 0) or (c <= 0) then exit;
writeln;
write('ИТОГО: ', trunc(c * (a + b)), ' руб. ', round(((c * (a + b)) - (trunc(c * (a + b*100), ' коп.');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
rclpsss
05.07.2021 11:51
циклическая структура FOR...
chelokoshka03
02.08.2020 10:46
Написать программу, которая запрашивает массив размерности N и выводит на экран сам массив, а также наибольший и наименьший элементы массива. PascalABC...
bagdasaryaneedik6390
11.12.2022 00:53
Запиши программу на языке Паскаль. Вычисли сумму s=n∑k=1 k+1/k^2+1, если значение n вводит пользователь. Если n=9, то вывод на экран (ответ округли до сотых)...
diankapermyakoowxdr6
04.09.2020 13:33
1. Дайте самый полный ответ. Информация — это ... 1. сведения об окружающем нас мире 2. то, что передают по телевизору в выпусках новостей 3. прогноз погоды 4. то, что печатают...
Сельга7
26.08.2022 04:40
Переведи целое десятичное число 4510 в системы счисления с основаниями 2, 8. 2. Переведи числа из двоичной системы в десятичную: а) 11001012 б) 10011112 3. Выполни арифметические...
Nika152Vika
07.08.2022 22:05
На чому базується генерування випадкових чисел?...
IrinaArinaRina
11.05.2022 06:10
Для массива А(20) поменять местами наибольший и последний элементы....
Nikitos228456
04.10.2022 11:09
Авторлық құқықты қолдануға мысал келтір помагите SOS. ...
артиик
20.11.2020 19:05
Дано положительное действительное число X. Выведите его первую цифру после десятичной точки.Написать на...
saltikov
07.05.2020 18:00
Скласти алгоритм розв’язання наступної задачі: Дано трикутник зі сторонами a, b, c. Визначити, який це трикутник: гострокутний, тупокутний чи прямокутний. мова Python...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, b: real;
c: integer;
begin
write('Введите стоимость тетради - '); readln (a);
write('Введите стоимость обложки - '); readln (b);
write('Введите кол-во тетрадей - '); readln (c);
if (a <= 0) or (b <= 0) or (c <= 0) then exit;
writeln;
write('ИТОГО: ', trunc(c * (a + b)), ' руб. ', round(((c * (a + b)) - (trunc(c * (a + b*100), ' коп.');
end.