Составьте алгоритм, который будет определять есть ли среди цифр заданного целого четырехзначного числа одинаковые.
Паскаль программирование
alexlion99alex
3
03.03.2020 22:30
5
Другие вопросы по теме Информатика
School30zh
04.02.2021 14:10
bellanik2p06zxf
04.02.2021 14:13
AlexKostrov
24.12.2021 09:39
arcadig01
24.12.2021 09:31
kristinapaskan
24.12.2021 09:28
kopechenkina
09.04.2020 06:51
victoriya0205
16.02.2020 13:25
2424r
16.02.2020 13:25
tata15711
16.02.2020 13:25
Популярные вопросы
- Какой окрас имеет осадок йодид-дииодомеркурат аммония?...
2 - нужно дать название(Задание №2 Составить уравнения реакций к...
2 - Дано: S=0.1t³ R=5 м V=30 м/с Найти: a n - ? а t - ?...
3 - довжина прямокутної ділянки що межувала з болото бм була на...
3 - Из ящика, где было два черных и пять белых шаров, вынут наудачу...
3 - Определите ток, возникающий при работе утюга мощностью 700вт,...
2 - Help me ^-^ 1. Ряд сложных имен прилагательных с дефисным написанием:А)...
1 - Jeśli znajdziesz błąd, popraw wypowiedź Przed kasą było kilka...
2 - Какое минимальное количество энергии может поглотить поверхность,...
1 - Краткое содержание рассказа наездники Кир Булычев Скажите кто...
3
program odinak_v_4zn_ch;
var x,x1,x2,x3,x4:Integer;
begin
read(x);
x4:=x mod 10;
x3:=x mod 100 div 10;
x2:=x mod 1000 div 100;
x1:=x div 1000;
if(x1=x2)or(x1=x3)or(x1=x4)or(x2=x3)or(x2=x4)or(x3=x4)
then
write('yes')
else
write('no')
end.