Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ibama
07.05.2021 12:12 •
Информатика
Известна стоимость монитора, системного блока, клавиатуры и мыши. сколько будут стоить n компьютеров. написать программу в poscal abc
Ответ:
diasj5kz
27.06.2020 06:25
Простая задача, держи:
var a,b,c,d,n,j:integer;
begin
writeln('Стоимость монитора');
readln(a);
writeln('Стоимость системного блока');
readln(b);
writeln('Стоимость клавиатуры');
readln(c);
writeln('Стоимость мышки');
readln(d);
writeln('Сколько компьютеров нужно?');
readln(n);
j:=(a+b+c+d)*n;
writeln('Стоимость ', n, ' компьютеров = ',j);
end.
0,0
(0 оценок)
Ответ:
littlefoxy
27.06.2020 06:25
Var
m,s,c,k,n:integer;
begin
writeln('Стоимость монитора:');
readln(m);
writeln('Стоимость системного блока: ');
readln(s);
writeln('Стоимость клавиатуры:');
readln(c);
writeln('Стоимость мыши:');
readln(k);
writeln('Кол-во компьютеров');
readln(n);
writeln('Цена покупки: ',(m+s+c+k)*n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vitaliy000007
04.06.2022 19:25
Во и задания1. Какая информация может быть расположена на слайде презентации?2. Какова особенность технологии гипертекста?3. Как называется класс систем, в которых технология гипертекста...
мая96
20.10.2022 13:11
1) Что произойдет если поменять местами счетчики внешнего и внутреннего цикла i и j в заголовках циклов (в типовом алгоритме обработки двумерного массива)? 2) Какова зависимость...
nikitaaleksandrov
17.09.2021 05:10
Звуковая информация записана каким-либо образом пригодными для воспроизведения - это...
olenkadergunov
26.07.2022 00:19
Определите значения переменной “a” после выполнения данного алгоритма: a := 2 b:= 12+a*b a := b/4*a c := b mod(a-b/8) a: = a div c В ответе укажите одно целое число - значение переменной...
serega5152
06.01.2023 04:15
Даны три числа: А= 23 10 , В= 15 10 , С= 11011 2 . Переведите числа в двоичную системусчисления и выполните поразрядно логические операции Av(¬B^C). ответ дайте в десятичнойсистеме...
akmal8606
29.11.2020 10:46
Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала в полученной цепочке символов каждую букву заменяем буквой, следующей за ней в русском...
anastasiagold
08.10.2020 10:04
. В ответе запишите последовательность букв без запятых и других знаков препинания. (В ответе указать прописные буквы без знаков препинания и пробелов) Задание 4. Доступ к файлу...
айеоник
06.02.2021 06:10
контрольная работа по информатике1.сколко единиц в двоичной записи числа 195....
DenNewLen38
06.02.2021 06:10
Разработать классы и создать объекты этих классов. Проиллюстрировать на примерах практические возможности использования созданных классов и объектов. Класс «Симулятор марковских...
я2двойшник
08.04.2023 06:17
Считая, что каждый символ кодируется одним байтом, определи, чему равен информационный объём следующего словосочетания: голубая паркаответ: байтов....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,b,c,d,n,j:integer;
begin
writeln('Стоимость монитора');
readln(a);
writeln('Стоимость системного блока');
readln(b);
writeln('Стоимость клавиатуры');
readln(c);
writeln('Стоимость мышки');
readln(d);
writeln('Сколько компьютеров нужно?');
readln(n);
j:=(a+b+c+d)*n;
writeln('Стоимость ', n, ' компьютеров = ',j);
end.
m,s,c,k,n:integer;
begin
writeln('Стоимость монитора:');
readln(m);
writeln('Стоимость системного блока: ');
readln(s);
writeln('Стоимость клавиатуры:');
readln(c);
writeln('Стоимость мыши:');
readln(k);
writeln('Кол-во компьютеров');
readln(n);
writeln('Цена покупки: ',(m+s+c+k)*n);
end.