1. Информатика
  2. Вывести все натуральные

Вывести все натуральные трехзначные числа, в которых есть заданная цифра. на паскале.

annareain252 annareain252    2   02.10.2019 05:01    3

Ответы
сымбатым сымбатым  09.10.2020 11:02

Var A, I, O: Integer;

Begin

ReadLn(A);

For I:=100 to 999 do Begin

 If I div 100 = A Then  

 O:=O+1;

 if (I div 10)-(I div 100) = A then  

 O:=O+1;

 If I - ((I div  10)*10) = A Then  

 O:=O+1;

End;

WriteLn(O);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
maratuk2957oxmbqd maratuk2957oxmbqd  30.11.2020 11:11
1)Автомобиль разгоняется со скорость в 17 м/с при достижении скорости в 109 м/с водитель нажимает на тормоза и машина начинает уменьшать скорость на 12 м/с.Рассчитать через сколько...
lololol707lollol lololol707lollol  04.12.2020 12:58
Документ объёмом 10 Мбайт можно передать с одного компьютера на другой двумя А. Сжать архиватором, передать архив по каналу связи, распаковать. Б. Передать по каналу связи без...
юлия1628 юлия1628  04.12.2020 12:58
Составьте программу нахождения площади прямоугольного треугольника в виде функции в Паскале. ​ programvarprocedurebeginS:=a*b/2;end;functionи так далее. ​...
Andrey18282919 Andrey18282919  23.08.2019 08:10
Склавиатуры вводится последовательность символов заканчивающиеся на точку. определить сколько цифр было в этой последовательности...
Gurza97 Gurza97  16.09.2019 12:20
Растровый газетный рисунок состоит из 4 цветов чёрного,тёмно серого, светло серого, белого сколько битов понадобится для двоичного кодирования одного пикселя этого рисунка...
natik045 natik045  16.09.2019 12:20
Составить кроссворд на листе формата а4 по терминам из области информатики (не менее 20 терминов). на втором листе а4 представить ответы....
svatoslavsasko3 svatoslavsasko3  24.05.2019 04:50
)перевести числа из одной системы в другую 1001101110(2)- х(8) 1001101110(2)-х(16) 205(8)-х(16)...
alek09 alek09  17.10.2019 18:31
1. составьте маску: а. имя заканчивается на букву k. б. расширение состоит не менее, чем из 4 символов и включает букву f. в. имя начинается с буквы s и содержит не менее 5 символов....
katyafedorenko1 katyafedorenko1  08.04.2019 18:13
Які з тверджень стосуються гетьмана петра дорошенка? а)прийняв турецький протекторат б)першим з українських гетьманів поїхав до москви в)зрікся гетьманства та втік до польщі г)взяв...
GNRK GNRK  08.04.2019 18:13
Рассада цикламена5. сравни.308 : (a + b) * 308 : (a – b)(c+d) : 8 * (c+d) - 8480: 4+b+ 480: (4 + b)​...

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