Программисты ! необходимо написать программу в паскале.
условие :
для чисел от 1 до 1000. найти количество трехзначных чисел, все
цифры которых одинаковы.
JodiRimmet27
3
05.12.2019 20:07
15
Другие вопросы по теме Информатика
derver
20.05.2020 10:32
katya8998
03.10.2019 17:00
Rubin22
03.10.2019 17:00
milana2709
04.04.2021 21:09
БеллаСAT
14.09.2019 09:40
seregatarlykov
31.08.2021 17:59
anton2015b
05.06.2019 03:40
20MIR01
05.06.2019 03:40
Популярные вопросы
- Расставить знаки ! холодно сияло на севере лазурное небо, над тяжелыми свинцовыми...
1 - При посеве гороха 100кв.м расходуют 2 кг семян.сколько кг гороха можно собрать...
1 - Назовите общие признаки типа корненожек...
1 - Какие части речи у слов тебе вы я старался светлый полёт...
3 - Докажите, что для проростания семян нужна влага и воздух....
1 - Осуществить превращение c2h6-c2h5cl-c4h10-co2-caco3...
1 - Чему равен катет прямоугольного треугольника если его гипотенуза равна 4 см второй...
3 - Монету бросают трижды. сколько последовательностей орлов и решек может получится?...
2 - Один робітник працював 4 дні,по 7год на день,а другий-3 дні по8 год на день.разом...
1 - Решить пример по действиям (20408-12599)*47-(12300*12-89568)...
3
var i,k: integer;
begin
k:=0;
for i:=111 to 999 do
if((i mod 10)=(i mod 100 div 10)) and ((i mod 10)=(i div 100)) then k:=k+1;
write(k);
end.