Распечатать слова предложения, которые содержат одинаковое количество букв

@SauRon013 · Регистрация: 20.12.2011

Студворк — интернет-сервис помощи студентам

Не могу написать последние три задачки:
1)Составьте программу вычисления среднего арифметического каждого столбца матрицы B(N,N) и запишите данные значения в главную диагональ данной матрицы

2) Составьте прогу, распечатывающую слова предложения, которые содержат одинаковое количество букв

3) вывести на экран все трехзначные числа, кратные 9

P.S. заранее огромное спасибо)))

@КонецСвета · 21.12.2011, 00:27

а у меня с 20 словами нормально сработало... а сколько слов ты вводишь?
кстати, без процедур работает... может, уменьшить на одну процедуру?

@SauRon013 · 21.12.2011, 00:39 **[ТС]**

что с ней???

Добавлено через 32 секунды
КонецСвета, я 3 слова вводил всего

Добавлено через 3 минуты
ввел двадцать и все равно еррор

@КонецСвета · 21.12.2011, 00:44

SauRon013, в общем, так, друг, вот вариант поскромнее, с одной процедурой, зато рабочий... компилируется и работает, првоерено =)

Pascal
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
uses crt;
type mas=array [1..100] of string;
var a:mas;
    s,sl,sn: string;
    i,j,k,l,dmax,dmin: integer;
 
procedure StInAr(s: string; var a:mas);
var sl: string;
begin
j:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       if length(sl)<>0 then
          begin
          inc(j);
          a[j]:=sl;
          sl:='';
          end;
end;
 
begin
write('s=');
readln(s); s:=s+' '; sl:='';
StInAr(s,a);
for l:=1 to length(s) do
begin
sn:='';
k:=0;
for i:=1 to j do
    if length(a[i])=l then
       begin
       sn:=sn+a[i]+' ';
       inc(k);
       end;
    if k>1 then writeln('Слова из ',l,' букв: ',sn);
end;
readkey
end.

@SauRon013 · 21.12.2011, 00:49 **[ТС]**

КонецСвета,

работает))))

спасибо)))))))))))

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@SauRon013 0 / 0 / 0 Регистрация: 20.12.2011 Сообщений: 11

	Распечатать слова предложения, которые содержат одинаковое количество букв 20.12.2011, 21:54. Показов 2710. Ответов 23 Метки нет (Все метки) Не могу написать последние три задачки: 1)Составьте программу вычисления среднего арифметического каждого столбца матрицы B(N,N) и запишите данные значения в главную диагональ данной матрицы 2) Составьте прогу, распечатывающую слова предложения, которые содержат одинаковое количество букв 3) вывести на экран все трехзначные числа, кратные 9 P.S. заранее огромное спасибо))) 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	21.12.2011, 00:27
	а у меня с 20 словами нормально сработало... а сколько слов ты вводишь? кстати, без процедур работает... может, уменьшить на одну процедуру? 0

@SauRon013 0 / 0 / 0 Регистрация: 20.12.2011 Сообщений: 11
	21.12.2011, 00:39 [ТС]
	что с ней??? Добавлено через 32 секунды КонецСвета, я 3 слова вводил всего Добавлено через 3 минуты ввел двадцать и все равно еррор 0

@SauRon013 0 / 0 / 0 Регистрация: 20.12.2011 Сообщений: 11
	21.12.2011, 00:49 [ТС]
	КонецСвета, работает)))) спасибо))))))))))) 0