СРОЧНО! Решение делается в турбо паскале: «Вывести на экран все четырехзначные…

Question

82

СРОЧНО! Решение делается в турбо паскале: «Вывести на экран все четырехзначные числа, в записи которых нет одинаковыхцифр! "

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

widmen · Accepted Answer

60

widmen

19 апреля 2023

var a: integer; c1, c2, c3, c4: integer; begin for a: =1000 to 9999 do begin c1: =a div 1000; c2: =(a div 100) mod 10; c3: =(a div 10) mod 10; c4: =a mod 10; if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4) then writeln (a); end; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: