Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
qqlaza
23.02.2022 05:43 •
Информатика
Написать программу на паскале для вычисления стоимости покупки, состоящей из нескольких тетрадей и такого же количества обложек к ним. результат должен выводиться в денежном формате, например, 145руб. 30коп.
Показать ответ
Ответ:
viktorius1
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 оценок)
Популярные вопросы: Информатика
Lililililililiza
31.05.2021 23:38
5. В каких случаях используются операторыСравнения?...
Alina243jhj
16.04.2020 03:59
Word dasturida yangi hujjat hosil qilish uchun qanday amallar bajaradi?...
школа433
11.05.2020 16:34
3. Путём преобразования докажите равносильность следующих высказываний:и (A & B) M (A& C) V (B & C);1) (A & B) V (B & C)2) (A & B) v (A & C)и (A &...
wildforme
24.05.2023 01:31
На вході маємо цілочисельний список значень та число n- кількість значень в цьому списку. На виході повний аналіз цього списку за кожним із таких пунктів: а) кількість значень списку,...
yulia24082
02.11.2022 20:04
●●По перемещения роботы бывают и мобильными. Укажите, к какому типу перемещения относятся роботы, представленные на картинках...
софийка34
17.10.2021 15:43
Придумать каламбур! ! ))со словами: союз, частица...
15gallagher
17.10.2021 15:43
Напишите уравнения реакций для этой пары веществ,коэффициенты расставьте методом электронного ,укажите окислители и восстановители. 1.h2o и nano3 2.o2 и mg 3.kf и kbr 4.ki и kbr...
kiert
17.10.2021 15:43
Выписать видоизменения надземных побегов с примерами...
Хорошоучусь
17.10.2021 15:43
Тесты 1. укажите, какие из здесь утверждений являются правильными. если произойдет увеличение дохода, то: а) автономное потребление сократится; б) автономное потребление не изменится;...
Magia33
17.10.2021 15:43
Какие окончания в словах белки,белок ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.