Напишите пояснения к задачам.

@volchik1991 · Регистрация: 26.05.2009

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

Дан массив натуральных чисел. Найти сумму элементов, кратных данному K.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    var
   a:array[1..20] of integer;
   s,i,k:integer;
begin
     randomize;
     write('    Vvedite chislo  K : ');
     readln(k);
     s:=0;
     for i:=1 to 20 do
     begin
          a[i]:=random(140);
          if a[i] mod k = 0 then s:=s+a[i];
     end;
     writeln('Summa chisel kratnih K pavno :  ',s);
     readln;
end.

Заданы два одномерных массива с различным количеством элементов
и натуральное число k. Объединить их в один массив, включив второй массив между
k-м и (k+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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 uses Crt;
var
 a : array [1..10000] of integer;
 b : array [1..10000] of integer;
 i,j, k,q,e,f : integer;
begin
 Clrscr;
 Writeln ('ўўҐ¤ЁвҐ а*§¬Ґа*®бвм ЇҐаў®Ј® ¬*ббЁў*');
 readln(q);
 Writeln ('ўўҐ¤ЁвҐ а*§¬Ґа*®бвм ўв®а®Ј® ¬*ббЁў*');
 readln(e);
 randomize;
 for i:=1 to q do
 begin
   a[i]:=random(200);
   writeln(a[i]);
 end;
 readln;
 for i:=1 to e do
 begin
   b[i]:=random(200);
   writeln(b[i]);
 end;
 f:=e+q;
 readln;
 writeln('Vvtlbnt chislo ot 1 to а*§¬Ґа*®бвЁ ЇҐаў®Ј® ¬*ббЁў*');
 Readln(k);
 
 for i:=k+1 to k+e do
 begin
   a[i+e]:=a[i];
 end;
 for i:=1 to e do
 begin
   a[k+i]:=b[i];
 end;
 
 for i:=1 to (f) do
 begin
   writeln(a[i]) ;
 end;
 readln;
end.

Сформировать квадратную матрицу порядка n по заданному образцу:
1 2 3 … n
n n-1 n-2 … 1
1 2 3 … n
n n-1 n-2 … 1
… … … … …
n n-1 n-2 … 1 n четное

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
var
   a:array[1..20,1..20] of integer;
   i,j,k,n:integer;
begin
    writeln('‚ўҐ¤ЁвҐ а*§¬Ґа*®бвм ¬*ббЁў* n=');
    readln(n);
     k:=1;
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
               if i mod 2 <> 0 then
               begin
                 a[i,j]:=k;
                 if j<> n then inc(k);
               end else
               begin
                    a[i,j]:=k;
                    if j<>n then dec(k);
               end;
               write(a[i,j]:3);
          end; writeln;
     end;
     readln
end.

Г34. Дана целочисленная квадратная матрица. Найти в каждой строке наибольший
элемент и поменять его местами с элементом главной диагонали.

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
 const
     n=3;
var
   a:array[1..n,1..n]of integer;
   i,j:integer;
   fl,fl1:boolean;
begin
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
               readln(a[i,j]);
          end;
     end;
     fl:=false;
     fl1:=false;
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
               write(a[i,j]:3);
               if ((i<>1) and (j<>1)) then
               if i<>j then
               begin
                    if a[i,j]=a[j,i] then fl:=true;
               end else
               begin
                    fl1:=true;
               end;
               if fl then exit;
          end; writeln;
     end; writeln;
     if fl1 then writeln('Matrica NE simetrichna!!!!') else
        writeln('Matrica NE simetrichna!!!!');
     readln;
end.

Треугольник задан координатами своих вершин.
Составить программу вычисления его площади.

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
var
   x1,y1,x2,y2,x3,y3:integer;
   s,d,x,y,h:real;
begin
     writeln('           Vvedite koordinati');
 
     write('x1 ');
     readln(x1);
     2write('y1 ');
     readln(y1);
     write('x2 ');
     readln(x2);
     write('y2 ');
     readln(y2);
     write('x3 ');
     readln(x3);
     write('y3 ');
     readln(y3);
 
     d:=sqrt(sqr(x3-x1)+sqr(y3-y1));
     x:=(x3-x1)/2;
     y:=(y3-y1)/2;
     h:=sqrt(sqr(x2-x)+sqr(y2-y));
     s:=d*h/2;
     writeln('Ploshad ravna  : ',s:4:3);
     readln;
end.

Написать программу вычисления суммы
1 + 1/2 + 1/3 + … + 1/n
для заданного
числа n. Результат представить в виде
несократимой дроби – p/q (p, q – натуральные).

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
39
40
41
42
43
44
45
46
47
48
     program Project2;
 var q  : real;
     n,i,a, b, r:longint;
 
 function NOD_Evklid (a, b : integer) : integer;
var r : integer;
 
begin
 
  if ((a=0)or(b=0)) then begin
    NOD_Evklid := abs(a+b);
    exit;
  end;
 
  r := a-b*(a div b);
  while r <> 0 do begin
    a := b;
    b := r;
    r := a-b*(a div b);
  end;
  NOD_Evklid := b;
end;
 
begin
 
  readln(n);
 
  a:=1;
  b:=1;
  for i:=2 to n do
 begin
   a:=1*b+i*a;
   b:=i*b;
  end;
  begin
  q:=NOD_Evklid(a,b);
  a:=round(a/q);
  b:=round(b/q);
  end;
 
 
   writeln('************Konetshnyj Massiv************');
 
  writeln(a,'/',b);
  writeln;
 
 
end.

З32. Двумерный массив n ? m содержит некоторые буквы
русского алфавита, расположенные в произвольном порядке.
Написать программу, проверяющую, можно ли из
этих букв составить данное слово S. Каждая буква
массива используется не более одного раза.(решить рекурией)

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
39
40
41
42
43
44
45
46
47
uses
  crt;
const
  n = 2;
  m = 2;
var
  i,j,k,x: integer;
  a: array [1..n,1..m] of char;
  s: string;
begin
  k:=0;
  x:=0;
  clrscr;
  write('wwedite slowo: ');
  readln(s);
  if length(s)<=(m*n) then
  begin
    for i:= 1 to n do
    begin
      for j:= 1 to m do
      begin
        write('a[',i,',',j,'] = ');
        readln(a[i,j]);
      end;
    end;
    while k<=length(s) do
    begin
      inc(k);
      for i:= 1 to n do
        for j:= 1 to m do
        begin
          if s[k]=a[i,j] then
          begin
            inc(x);
            break;
          end;
        end;
    end;
    if x=length(s) then
      write('Mojno sostawit slowo')
    else
      write('Nelza sostawit slowo');
  end
  else
    write('Dlina slowa > kol-wa elementow');
  readkey;
end.

@demidrolll · 13.06.2009, 19:08

Для начала выделите код, чтобы было удобнее читать (выделите код и нажмите кнопку Pascal на панели).

@lexus_ilia · 13.06.2009, 19:21

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

Для начала выделите код, чтобы было удобнее читать (выделите код и нажмите кнопку Pascal на панели).

Только после 10-ти минут нельзя корректировать свои сообщения, но это ничего

@demidrolll · 13.06.2009, 19:25

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
   a:array[1..20] of integer;
   s,i,k:integer;
begin
     randomize;
     write('    Vvedite chislo  K : ');  
     readln(k);
     s:=0;
     for i:=1 to 20 do
     begin
          a[i]:=random(140);      {заполняем массив случайными числами}
          if a[i] mod k = 0 then 
            s:=s+a[i];     {находим сумму кратных элементов}
     end;
     writeln('Summa chisel kratnih K pavno :  ',s);        {выводим сумму}
     readln;
end.

@lexus_ilia · 13.06.2009, 19:27

Я говорил про 10 минут, но есть и ещё 1-ин способ обмануть эту систему, пока никто не написал сообщение за тобой, то просто пишешь сообщение, оно добавляется и даётся десять минут, за эти минуты можно исправлять не только добавленное сообщение

@demidrolll · 13.06.2009, 19:31

Volchik1991, давайте Вы напишите, что Вам не понятно, а там уже будем разбираться.

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

@demidrolll 133 / 132 / 60 Регистрация: 10.12.2008 Сообщений: 286
	13.06.2009, 19:08
	Для начала выделите код, чтобы было удобнее читать (выделите код и нажмите кнопку Pascal на панели). 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	13.06.2009, 19:27
	Я говорил про 10 минут, но есть и ещё 1-ин способ обмануть эту систему, пока никто не написал сообщение за тобой, то просто пишешь сообщение, оно добавляется и даётся десять минут, за эти минуты можно исправлять не только добавленное сообщение 0

@demidrolll 133 / 132 / 60 Регистрация: 10.12.2008 Сообщений: 286
	13.06.2009, 19:31
	Volchik1991, давайте Вы напишите, что Вам не понятно, а там уже будем разбираться. 0