Вопрос по информатике:
1.определить,есть ли среди цифр заданного трехзначного числа одинаковые.
2.вычислить стоимость покупки с учетом скидки.Скидка в 10% предоставляется,если сумма покупки больше 1000 руб.
- 04.10.2017 16:01
- Информатика
- remove_red_eye 9744
- thumb_up 37
Ответы и объяснения 1
1)uses crt;var x,a,b,c,i: integer; begin cls; write('Введите число: '); readln(x); a:= x div 100; b:= (x - a*100) div 10; c:= (x - a*100 - b*10); if (a=b) or (a=c) or (b=c) then writeln('Есть одинаковые цифры') else writeln('Одинаковых цифр нет');end.
2)uses crt;var x: real; begin cls; write('Сумма покупки: '); readln(x); if x>1000 then x:=x-(x*0.1); writeln('Стоимость с учётом возможной скидки ',x);end.
- 05.10.2017 07:27
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.