Составить программу, вычисляющую стоимость покупки фирмой компьютеров, если цена одного компьютера составляет 40 000 рублей, а при покупке свыше 10 компьютеров предоставляется 20% скидка. какую сумму должна заплатить фирма за 12 компьютеров? (входные данные – цена одного компьютера, количество покупаемых компьютеров; выходные данные – стоимость всех компьютеров).

Ответы

Besta555 17.04.2020 03:23

Var price, k, sum: real;
begin
write('Количество: ');
readln(k);
write('Цена: ');
readln(price);
if k>10 then
sum:=k*price*0.8
else
sum:=k*price;
writeln('Итого: ', sum)
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

малика230 04.05.2021 15:08

У заданому словнику знайти групи слів, які записані однаковими літерами і відрізняються лише їх порядком, тобто перестановкою, наприклад: “РАНОК” – КРОНА” (На С или...

новичок586 04.05.2021 15:06

В одной из кодировок Unicode каждый символ кодируется 16 битами. 1 байт содержит 8 битов. Определи размер следующего предложения в данной кодировке: Что посеешь,...

Lev1223 06.06.2019 07:00

Как написать программу, которая в последовательности чисел (количество вводится с клавиатуры) определяет сумму чисел, кратных 9 и оканчивающихся на 3. pascalabc.net...

Vikaadamm 28.02.2019 09:10

Много (78) за блок- курсовую сдавать : ( программа на паскале uses crt; type mas=array [1..100] of integer; var b: mas; p,i,n: integer; procedure vvod (x: mas; k:...

grenika 28.02.2019 09:10

Сколько цветов будет в палитре, если каждый базовый цвет кодировать в 3 битах?...

Zahardenicuk 28.02.2019 09:10

Егэ сдавали 64 ученика. максимальный , который можно было получить во время экзамена - 100. набранный (число, а не цифра) каждого ученика был закодирован с использованием...

dimon786 28.02.2019 08:40

Даны два ненулевых числа. найти их сумму, разность, произведение и частное....

Афооня 28.02.2019 07:40

Записи натурального числа пятеричной системе счисления преписали право два нуля ва сколько рас увеличилась это число?...

Kpocav4ik666 28.02.2019 07:40

.(Дан двумерный массив из n×m элементов (n, м≤ 100) a11, a12 , a1n ; am1, am2 , amn.. найти сумму элементов на нечетных местах массива и произведение элементов на...

ак2005 28.02.2019 07:30

Толя получает информацию из интернета со скоростью 2^18 бит/с и передает ее мише со средней скоростью 2^15 бит/с. компьютер толи может начать ретрансляцию данных...

Популярные вопросы