Сделать через Процедуры и функции

@Richik123 · Регистрация: 26.12.2011

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

1)

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
var
  s, sl, smax: string;
  i, n, dmax, nmax: integer;
 
begin
  write('Вводим строку s=');
  readln(s);
  s := s + ' '; sl := '';dmax := 0;
  for i := 1 to length(s) do
    if s[i] <> ' ' then sl := sl + s[i]
    else if length(sl) > 0 then
    begin
      inc(n);
      if length(sl) > dmax then
      begin
        dmax := length(sl);
        smax := sl;
        nmax := n;
      end;
      sl := '';
    end;
  writeln('Самое длинное слово "', smax, '" длиной в ', dmax, ' символов, порядковый номер ', nmax);
  write('s=', s);
end.

2)

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
program M123;
 
var
  i, j, i1, i2, i3, i4, i5: integer;
  Stroka: String;
  SK1, SK2, sk3, sk4, sk5, sk6: Char;
 
begin
  SK1 := '(';
  SK2 := ')';
  SK3 := '[';
  SK4 := ']';
  SK5 := '{';
  SK6 := '}';
  WriteLn('Введите строку со скобками: ');
  ReadLn(Stroka);
  WriteLn;
  for j := 1 to Length(Stroka) do 
  begin
    i := pos(SK1, Stroka);
    i1 := pos(SK2, Stroka);
    i2  := pos(SK3, Stroka);
    i3 := pos(SK4, Stroka);
    i4 := pos(SK5, Stroka);
    i5 := pos(SK6, Stroka);
  end;
  if  i <> 0 then WriteLn('( - ОК!')
  else WriteLn('( - No!');
  if  i1 <> 0 then WriteLn(') - Ok!')
  else WriteLn(') - No!');
  if  i2 <> 0 then WriteLn('[ - Ok!')
  else WriteLn('[ - No!');

3)

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
uses
  crt;
 
var
  i, j, chet, nechet: byte; a: array[1..5, 1..5] of byte;
 
begin
  Randomize;
  WriteLn('Сформируем матрицу размерностью 5х5.');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      a[i, j] := Random(8) + 1;
      if a[i, j] mod 2 = 0 then
        chet := chet + 1
      else
        nechet := nechet + 1;
      Write(a[i, j]:2);
    end;
    WriteLn();
  end;
  WriteLn('Количество четных чисел = ', chet);
  WriteLn('Количество нечетных чисел = ', nechet);
  if chet > nechet then
    WriteLn('В матрице 5х5 четных чисел больше, чем нечетных.')
  else
    WriteLn('В матрице 5х5 нечетных чисел больше, чем четных.');
end.

4)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program prj;
 
uses
  crt;
 
var
  a: array [1..5, 1..5] of integer;
  i, j, sum: integer;
 
begin
  writeln('Дана матрица');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      a[i, j] := random(19) - 9;
      write(a[i, j]:3);
      if j < i then inc(sum, a[i, j]);
    end;
    writeln;
  end;
  writeln('Сумма ниже главной диагонали=', sum);
end.

@КонецСвета · 12.04.2012, 18:04

Сообщение от Richik123

4)

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
uses crt;
type matr=array [1..5, 1..5] of integer;
var  a: matr;
  i,j: integer;
 
function Sum (z: matr): integer;
var  s: integer;
begin
s:=0;
  for i := 1 to 5 do
    for j := 1 to 5 do
      if j < i then inc(s,z[i, j]);
Sum:=s;
end;
 
begin
  writeln('Дана матрица');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      a[i, j] := random(19) - 9;
      write(a[i, j]:3);
    end;
    writeln;
  end;
  writeln('Сумма ниже главной диагонали=', Sum (a));
end.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .