Home
О нас
Products
Services
Регистрация
Войти
Поиск
Lhjg
@Lhjg
August 2022
1
3
Report
Составить программу, которая определяет, есть ли среди цифр целого трёхзначного числа одинаковые
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
ИнформатикБУ
Verified answer
Var
n: integer;
begin
readln(n);
if (n mod 10 = n div 10 mod 10) or (n mod 10 = n div 100) or (n div 10 mod 10 = n div 100) then
writeln('Есть')
else
writeln('Нет');
end.
0 votes
Thanks 1
More Questions From This User
See All
Lhjg
August 2022 | 0 Ответы
reshite zadachu po programmirovaniyu paskal avsa07e915d3b7a8f1bd1b3ad918e9c1bbd 86762
Answer
Lhjg
August 2022 | 0 Ответы
programmirovanie dany celye chisla m i n esli chisla ne ravnyto zamenit kazhdoe i
Answer
Lhjg
August 2022 | 0 Ответы
pomogite pozhalujsa ya uzhe zaputalas perevod s angla 1 russkij eto 1
Answer
Lhjg
August 2022 | 0 Ответы
kak reshit pomogiteeeee uravnenie
Answer
Lhjg
August 2022 | 0 Ответы
najti korni ur ya cosx6pcosx2p20
Answer
Lhjg
August 2022 | 0 Ответы
kak naznachaetsya gos dumaf5785f42f93981a860f40b83d44178ad 1094
Answer
Lhjg
August 2022 | 0 Ответы
kak naznachaetsya gos duma
Answer
Lhjg
August 2022 | 0 Ответы
vstavte bukvupenshijsya val
Answer
Lhjg
August 2022 | 0 Ответы
studenty zaderzhatsya zaderzhutsya
Answer
Lhjg
August 2022 | 0 Ответы
1 ryby mecht ikru melniki pereshelt v muku2 rebyatishki pleshtsya klesh
Answer
рекомендуемые вопросы
rarrrrrrrr
August 2022 | 0 Ответы
o chem dolzhny pozabotitsya v pervuyu ochered vzroslye pri organizacionnom vyvoze n
danilarsentev
August 2022 | 0 Ответы
est dva stanka na kotoryh vypuskayut odinakovye zapchasti odin proizvodit a zapcha
myachina8
August 2022 | 0 Ответы
najti po grafiku otnoshenie v3v1 v otvetah napisano 9 no nuzhno reshenie
ydpmn7cn6w
August 2022 | 0 Ответы
Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...
millermilena658
August 2022 | 0 Ответы
opredelite kak sozdavalas i kto sozdaval arabskoe gosudarstvo v kracii
MrZooM222
August 2022 | 0 Ответы
ch ajtmanov v rasskaze krasnoe yabloko ispolzuet metod rasskaz v rasskaze opi
timobila47
August 2022 | 0 Ответы
kakovo bylo naznachenie kazhdoj iz chastej vizantijskogo hrama pomogite pozhalujsta
ivanyyaremkiv
August 2022 | 0 Ответы
moment. 6....
pozhalujsta8b98a56c0152a07b8f4cbcd89aa2f01e 97513
sarvinozwakirjanova
August 2022 | 0 Ответы
pomogite pozhalusto pzha519d7eb8246a08ab0df06cc59e9dedb 6631
×
Report "Составить программу, которая определяет, есть ли среди цифр целого трёхзначного ..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Varn: integer;
begin
readln(n);
if (n mod 10 = n div 10 mod 10) or (n mod 10 = n div 100) or (n div 10 mod 10 = n div 100) then
writeln('Есть')
else
writeln('Нет');
end.