Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Vaprosic
20.05.2022 12:07 •
Информатика
Написать программу нужно подсчитать сумму покупки 14 карандашей по 30 рублей, 10 красных ручек по 50 рублей, 9 синих ручек по 50 рублей. программа нужна на языке paskal
Показать ответ
Ответ:
kudryashovaek
06.10.2020 15:55
Program p1;
var k, r_k, r_s: integer;
begin
WriteLn('Сколько было куплено карандашей?');
ReadLn(k);
WriteLn('Сколько было куплено красных ручек?');
ReadLn(r_k);
WriteLn('Сколько было куплено синих ручек?');
ReadLn(r_s);
WriteLn('Общая сумма: ', k*30 + r_k*50 + r_s*50);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vikateplova72
16.07.2021 19:21
Между населенными пунктами A, B, C, D, E построены дороги, протяженность которых (в километрах) приведена в таблице: Определите длину кратчайшего пути между пунктами A и...
Lisonьka124
01.07.2020 07:44
Парни, вопрос к вам. У меня будет свободный декабрь. Я хочу понят, во что поиграть - что-то с длинным сюжетом. Игры типа - дисхоноред, гта, хитмена. Второй вопрос - стоит...
joker902
20.04.2020 16:17
Какие существуют редактирования документа...
Amineshin
02.12.2021 05:56
Подбери недостающие коды и заполни пропуски в таблице: а-01; А-02; б-03; Б-04; В-?; г-?...
darinashagaeva
03.09.2022 01:19
Какому программному обеспечению относится медиаплееры...
SergeGu
19.08.2020 22:09
7 класс 6 задание никак не могу понять...
Daniil199511
10.03.2020 03:43
очень надо скиньте скин...
эля1413
26.12.2020 18:10
1. Вводятся 3 числа вывести сумму нечетных введенных чисел 2. Вводятся 3 числа найти и вывести среднее по значению число ...
HepBbI
11.05.2020 04:22
Найдите материал по антивируса: название, назначение, разработчик, ссылка на интернет-источник, совместимость с операционной системой, интерфейс программы. Программ 4-5,...
dakusy2006
29.09.2021 13:48
1Для чого використовується стиснення даних? 2Як називають програми, що виконують архівування даних? Які операції над архівами вони можуть виконувати? 3Назвіть формати архівних...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var k, r_k, r_s: integer;
begin
WriteLn('Сколько было куплено карандашей?');
ReadLn(k);
WriteLn('Сколько было куплено красных ручек?');
ReadLn(r_k);
WriteLn('Сколько было куплено синих ручек?');
ReadLn(r_s);
WriteLn('Общая сумма: ', k*30 + r_k*50 + r_s*50);
end.