Дано трёхзначное число. Напишите программу, которая определяет: ...
Дано трёхзначное число. Напишите программу, которая определяет: есть ли среди цифр заданного целого трёхзначного числа одинаковые;
Есть ответ
17.12.2022
331
Ответ
var
a : integer;
begin
write ('A = ');
readln (a);
if (a > 999) or (a < 100) then
writeln ('Число не трехзначное')
else if (a mod 10 = a div 100) or (a mod 10 = a mod 100 div 10) or
(a div 100 = a mod 100 div 10) then
writeln ('Да, есть')
else
writeln ('Нет, нету');
readln;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022