Регистрация
olya200512
24.04.2023 19:33
Информатика
Есть ответ 👍

надо)))) 1 во всего лишь

133
328
Посмотреть ответы 3

Ответы на вопрос:

sotela546hgjUlia
sotela546hgjUlia
4,7(48 оценок)

Відповідь:

точно не знаю но по моему страницы заметок

Пояснення:

afanasevvlad96
afanasevvlad96
4,7(82 оценок)

Презентация в режиме сортировщика.

Объяснение:

Anna2271
Anna2271
4,6(88 оценок)

ответ:

var i,n,k,a: integer;

begin

write('введите количество трехзначных чисел, которые надо сгенерировать: ');

readln (n);

if n < =0 then writeln ('ошибка')  

else for i: =1 to n do

begin

a: =random (900)+100;

write (a,'   ');

if (a div 100 < > a div 10 mod 10) and (a div 10 mod 10 < > a mod 10) and (a div 100 < > a mod 10) then k: =k+1

end;

writeln;

if k < > 0 then write ('количество чисел, в записи которых все цифры различны ',k)

end.

объяснение:

Популярно: Информатика