1. Информатика
  2. Запишите алгоритм, позволяющий

Запишите алгоритм, позволяющий определить, есть ли среди цифр заданного целого трёхзначного числа x одинаковые записи выберите самостоятельно.

He1111p He1111p    3   23.06.2019 15:10    27

Ответы
Fqx Fqx  02.10.2020 09:28
Program x;
var
s:string;
begin
readln(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
writeln('есть') else writeln('нет')
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ехуотличница ехуотличница  23.06.2019 22:40
За решите формулу соответствующую данной формуле на паскале : a+b/c+c*d/a/b?...
ritosha002 ritosha002  23.06.2019 22:40
Найдите и исправьте ошибки program primer 1 var a, b, z; integer: bigin write (введите два целых числа ); read (a, b); z=a*b; written ( произведени чисел = ,z) writelen (нажми...
Margarita12071 Margarita12071  23.06.2019 22:40
Подсчитать количество элементов массива 17 массив размером [100]...
АминаАлханова АминаАлханова  12.06.2019 19:40
Многократное размещение однотипной информации повторяющейся фразы символов букв слов одинаковий гравических файлов...
davo20051 davo20051  12.06.2019 19:40
Кзаписи натурального числа в восьмеричной системе счисления справа приписали два нуля. во сколько раз увеличилось число? ответ запишите в десятичной системе счисления....
tomirisestanova tomirisestanova  12.06.2019 18:54
Создать блок-схему и написать на языке с++ программу вычисления количества натуральных четырехзначых чисел , сумма цифр которых равна 10...
olga810706 olga810706  26.12.2021 19:25
Приближаются новогодние праздники. Поэтому Кирилл написал статью с идеями для зимнего путешествия. Давай проверим её и начинающему блогеру оформить всё правильно. 1. Открой...
HeLLDeViLL HeLLDeViLL  26.12.2021 19:26
написать программу которая выводила бы на экран 1 график, PYTHON...
OSTROVSKAYA100 OSTROVSKAYA100  26.12.2021 19:32
Как проверить каждое число из списка на четность или делимость на какое-либо число в Python? К примеру есть список:a = [1, 2, 3, 4, 5, 6]Как проверить четность каждого числа,...
pro100miss pro100miss  26.12.2021 19:48
Решите ! 1)Какой минимальный объём памяти (целое число Мбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 1024x4096 пикселей при...

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