Задание. Вставьте вместо точек слово из трех (четырех) букв, которое будет являться началом одного слова и окончанием другого. Пример: С (тон) на. 1. Ви (…) ол. 2. Ам (…) ин. 3. Лу (…) ыс. 4. За (…) от. 5. За (…) сат. 6. Слу (…) ка. 7. На (…) ер. 8. До (…) ок. 9. Пи (…) о. 10. Ту (…) ака. 11. Бал (…) еда. 12. Ку (…) мус. 13. На (…) ец. 14. На (…) дух. 15. За (…) ура. 16. Ка (…) арь. 17. По (…) ва. 18. Пре (…) ица. 19. Ку (…) ог. 20. Бан (…) ость. 21. Во (…) а. 22. Ка (…) еря. 23. За (…) ня. 24. Под (…) идол. 25. На (…) ина. 26. Ро (…) оп. 27. По (…) ан. 28. И (…) ина. 29. На (…) на. 30. Са (…) он. 31. По (…) ожа. 32. До (…) к. 33. Ну (…) ва. 34. Кон (…) нир. 35. Ме (…) пор. 36. Зас (…) он. 37. Мол (…) рок. 38. П (…) ра. 39. Буй (…) чок. 40. Гар (…) ет. 41. От (…) ер. 42. Ро (…) ва; 43. Вок (…) ог. 44. Рас (…) ун. 45. Х (…) кой. 46. П (…) кость. 47. Ту (…) ник. 48. Сор (…) аж. 49. Ку (…) аж. 50. Ез (…) тор
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Длля выделение мышкой несколько облостей следует прижать клавишу
Автор: Марина_Мария
const n=5;
var a:array[1..n] of integer;
b:array[0..8] of integer;
ar:array[1..n] of integer;
i,c,j:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
a[i]:=random(8);
write(a[i]:4);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if a[i]=j then inc(b[j]);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if (b[j]>1) and (a[i]=j) then a[i]:=9;
if a[i]<>9 then
begin;
inc(c);
ar[c]:=a[i];
end;
end;
writeln;
for i:=0 to 8 do writeln(i,'=',b[i]);
writeln;
writeln('Final array:');
for i:=1 to n do
if a[i]=9 then a[i]:=0;
for i:=1 to c do
begin;
a[i]:=ar[i];
write(a[i]:4);
end;
end.