Написать все четырехзначные натуральные числа, в десятичной записи которых нет двух одинаковых цифр.
Ответы:
21-03-2010 09:44
VarA,r1,r2,r3,r4:integer;BeginFor A:= 1000 to 9999 do Begin r1:=A div 1000; r2:=(A div 100) mod 10; r3:=(A div 10) mod 10; r4:=A mod 10; if (r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4) then Write(A,) End;End.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Написать все четырехзначные натуральные числа, в десятичной записи которых нет двух одинаковых цифр.» от пользователя Гульназ Сковорода в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!