задача в паскале: среди четырехзначных чисел выбрать те у ...
задача в паскале: среди четырехзначных чисел выбрать те у которых: 1. все 4 цифры различны2. имеются три одинаковые цифрыпомогите пожалуйста=)
Есть ответ
17.12.2022
355
Ответ
Программа вылетает т.к. много значений перебирает, если не хочется подобного просто смените ограничение.
var i,a,b,c,d:integer;
begin
for i:=1000 to 9999 do begin
a:=i mod 10;
b:=(i div 10) mod 10;
c:=(i div 100) mod 10;
d:=(i div 1000) mod 10;
if (a=b) and (b=c) and (c=d) then writeln ('odinakovie cifri - ',i);
if (ab) and (ac) and (ad) and (bc) and (bd) and (cd) then writeln('ne odinakovie cifri - ',i);
end;
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022