Регистрация
natlus27
01.02.2023 23:55
Информатика
Есть ответ 👍

НАЙТИ 10 слов! Найдите слова, обозначающие детали Лего, которые потерялись среди всех букв. Слова могут быть расположены только по горизонтали и вертикали!

232
340
Посмотреть ответы 2

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

polina030502
polina030502
4,6(1 оценок)

череп

шина

датчик

фигура

мотор

мини

пластина

кирпич

людь

балкаж

Nawrik34digma
Nawrik34digma
4,6(66 оценок)
Var     a: array['0'..'9'] of longint;     c: char;     i: integer; begin for c: = '0' to '9' do a[c]: =0; repeat read(c); if c in['0'..'9'] then a[c]: =a[c]+1; until c = '.'; if (a['1']=0)and(a['2']=0)and(a['3']=0)and(a['4']=0)and(a['5']=0)and(a['6']=0)and(a['7']=0)and(a['8']=0)and(a['9']=0) then     if a['0']=0 then write('no')     else           begin           writeln('да');           writeln(0);           end else     begin     writeln('да');     for c: ='9' downto '0' do             for i: = 1 to a[c] do                     write(c)     end end.

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