Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Jiio
08.05.2022 04:27 •
Информатика
Решите , используя язык программирования паскаль: напишите программу вычисления стоимости покупки, состоящей из нескольких карандашей, линеек и тетрадей. их количество и цену задать вводом. ответ вывести в виде: сумма к оплате: … руб … коп.
Показать ответ
Ответ:
mimimi055
03.10.2020 02:35
Var
k,kc,ks, r,rc,rs, l,lc,ls: Integer;
Summa: Integer;
begin
WriteLn('Введите цену карандаша'); ReadLn(kc);
WriteLn('Введите цену ручки'); ReadLn(rc);
WriteLn('Введите цену линейки'); ReadLn(lc);
WriteLn('Введите кол-во карандашей'); ReadLn(k);
WriteLn('Введите кол-во ручек'); ReadLn(r);
WriteLn('Введите кол-во линеек'); ReadLn(l);
ks:= k * kc; // цена карандашей
rs:= r * rc; // цена ручек
ls:= l * lc; // цена линеек
Summa:= ks + rs +ls; // общая цена всех 3-х
WriteLn('Сумма = ', Summa;
ReadLn;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Weronica98
05.07.2020 01:53
Определите принцип преобразования информации. что должно стоять вместо знака вопроса? 0 1 7 бр1 ? 4 4...
femalewolf1309
26.08.2022 01:14
Что такое в информатике прописные и строчные буквы...
katenautkina69
26.01.2021 12:44
Запишите, какой тип диаграммы необходимо выбрать для отображения состава лекарственного сбора трав, если известно, какую часть сбора (в %) составляет каждая из трав. *...
марусяice1
21.07.2021 21:51
Нарисуй в тетрадях модель фигуры в 3д формате...
vtkmlth
11.11.2020 07:36
Основные понятия MS-WORD...
Tkaiem
17.02.2023 16:56
В программе MS Excel в ячейке C1:D6 введите трёхзначные числа. В ячейке B2 выполните произведение 1 и 2 цифр максимального числа из ряда чисел , также в ячейке B3 разницу максимального...
Элла03
01.03.2021 21:07
В среде delphi создайте приложение вычисляющую площадь круга ОБЪЯСНИТЕ И С ФОТО...
JSmail
13.12.2020 15:09
Объясните использование в MS Access 2010 функция min и tan...
ArtemkaRus71
16.03.2021 19:57
Люди поставил только дайте честный ответ заранее огромное...
nataliacosciuc
07.04.2023 00:57
Program nl; Var: x,y; real; Begin Readln (x); if x =0 then y:= x*x Else y:= sqrt(x) Writeln(y); End. Program nl; Var: x,y;real; Begin Readln(x); if (8-x) 0 then y:=3x/8-x Else...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k,kc,ks, r,rc,rs, l,lc,ls: Integer;
Summa: Integer;
begin
WriteLn('Введите цену карандаша'); ReadLn(kc);
WriteLn('Введите цену ручки'); ReadLn(rc);
WriteLn('Введите цену линейки'); ReadLn(lc);
WriteLn('Введите кол-во карандашей'); ReadLn(k);
WriteLn('Введите кол-во ручек'); ReadLn(r);
WriteLn('Введите кол-во линеек'); ReadLn(l);
ks:= k * kc; // цена карандашей
rs:= r * rc; // цена ручек
ls:= l * lc; // цена линеек
Summa:= ks + rs +ls; // общая цена всех 3-х
WriteLn('Сумма = ', Summa;
ReadLn;
end.