1. Информатика
  2. Help.program pascal оператор

Help.program pascal оператор с предусловием. найти количество трехзначных чисел в котором хот одна цифра больше 7.

qweasdzxcrfvtgbmn qweasdzxcrfvtgbmn    2   29.09.2019 05:30    0

Ответы
lfhnvjk2007 lfhnvjk2007  09.10.2020 02:04

begin

 var Count := 0;

 var i := 100;

 while i < 1000 do

 begin

   if (i mod 10 > 7) or

     (i div 10 mod 10 > 7) or

     (i div 100 > 7) then  

     Count += 1;

   i += 1

 end;

 Print(Count)

end.


Help.program pascal оператор с предусловием. найти количество трехзначных чисел в котором хот одна ц
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Карина9653 Карина9653  14.07.2021 20:15
C++. Степень. Для того чтобы проверить, как её ученики умеют считать, Мария Ивановна каждый год задаёт им на дом одну и ту же задачу — для заданного натурального A найти...
aiskfjdUe aiskfjdUe  14.07.2021 21:14
На вход подается два числа n и X, необходимо посчитать такую сумму X^1+X^2+X^3+ ...+X^nX И вывести её на экран. Python!! Цикл: for...
аленка4644 аленка4644  14.07.2021 21:24
Найдите произведение чисел кратных числу К на отрезке [-А;A]. Если таких чисел нет, то выведите 1. Причем нуль не нужно учитывать при проверке на кратность. Числа Аи К...
MariyamGaraeva MariyamGaraeva  14.07.2021 21:28
Значение арифметического выражения: 2 * 27^7 + 3^10 - 9 записали в системе счисления с основанием три. Сколько цифр «0» содержится в этой записи?...
ttmail95 ttmail95  14.07.2021 23:47
Считайте целые числа m и n (m n), и выведите все числа X из отрезка [m, n], такие что X:(n — т), каждое новое число с новой строки. Примечание: Знак кратности — три точки...
оаеквс оаеквс  18.03.2019 00:20
Кумир 7 рисунок, нужны команды!...
mathewkichunov mathewkichunov  18.03.2019 00:29
10. определите отношения между понятиями и изобразите эти отношения в виде кругов эйлера. понятия: лиса, кошка, дикие, животные, волк,...
bullet699 bullet699  18.03.2019 01:50
Действие выполняемое и с моделью и с объектом оригиналом: план квартиры, чайник из пластилина в натуральную величину...
mrden3333 mrden3333  18.03.2019 01:50
Зачем нужна письменность финикиевским торовцам...
evgeniifedp08ruw evgeniifedp08ruw  16.07.2019 12:00
Врамках какой науки сформировалась наука информатика? а) в рамках кибернетики б) в рамках в) в рамках журналистики г) в рамках электроники....

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