Подкорректируйте пожалуйста код.

@student-novi4ok · Регистрация: 05.09.2011

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

Поместить в массив все числа в записи которых есть двойка, а рядом в массив записать, что получится из этого числа без двоекэ Последовательность из m чисел вводит пользователь.
Пример:
m=5
ввод: 122 34 8 19 22
рез-тат: 122 1
22 (ничего)
подкорректируйте пожалуйста мой код.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var a:array [1..100,1..100] of integer;
m,i,j,b,d,k,v,f,n:integer;
begin
clrscr;
write('Vvedite kol-vo chisel ');
readln(m);
for i:=1 to m do begin
write('Vvedite chislo ');
readln(b);
n:=0;
if b mod 10=2 then begin
n:=n+1;
for j:=1 to n do begin
a[i,j]:=b;
end;
end;
end;
for i:=1 to m-n do begin writeln;
write(a[i,1]:5);
end;
readln
end.

@Alex1OPS · 05.09.2011, 20:08

я бы так решил:

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
var
  a: array [1..100, 1..2] of integer;
  i,k,m,v,w: integer;
  s:string;
 
begin
    readln(m);
    k:=1;
    for i:=1 to m do
    begin
      readln(s);
      if (pos('2',s)>0) then 
      begin
        val(s,v,w);
        a[k,1]:=v;
        
        while (pos('2',s)>0) do delete(s,pos('2',s),1);
        val(s,v,w);
        a[k,2]:=v;
        inc(k);
      end;
    end;
    
    for i:=1 to k-1 do
    begin
      if (a[i,2]=0) then write('Число ',a[i,1],' без двоек (пусто)')
      else
      write('Число ',a[i,1],' без двоек ',a[i,2]);
      writeln;
    end;
    readln;
    readln;
end.

@student-novi4ok · 05.09.2011, 20:11 **[ТС]**

Вопрос что такое pos?

@Alex1OPS · 05.09.2011, 20:13

y:=pos(what,where);
функция, которая ищет первое вхождение what в строке where.
я использовал функции работы со строками, потому что они значительно облегчают данную Вами задачу

@student-novi4ok · 05.09.2011, 20:16 **[ТС]**

Я конечно искренне благодарен за решение, а не могли бы вы его оптимизировать для студента 2 курса), чтобы пусть и не более проще, но зато не сильно подазрительно.

@Alex1OPS · 05.09.2011, 20:29

Держи. Но и то решение было этак класса для 8-9 класса:

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
var
  a: array [1..100, 1..2] of integer;
  i2,i,n,k,c,b,m,n2:integer;
 
begin
  readln(m);
  b := 2;
  i2:=1;
  for i := 1 to m do
  begin
    read(n); 
    n2:=n;
    m := 0;
    k := 1;
    while n > 0 do
    begin
      c := n mod 10;
      if c <> b then
      begin
        m := m + c * k;
        k := k * 10;
      end;
      n := n div 10;
    end;
    if (n2<>m) then
    begin
      a[i2,1]:=n2;
      a[i2,2]:=m;
      inc(i2);
    end;
  end;
  
  for i:=1 to i2-1 do
    begin
      if (a[i,2]=0) then write('Число ',a[i,1],' без двоек (пусто)')
      else
      write('Число ',a[i,1],' без двоек ',a[i,2]);
      writeln;
    end;
    readln;
end.

@student-novi4ok · 05.09.2011, 21:09 **[ТС]**

Огромнейшее вам спасибо! Вы меня прям спасли, вообще паскаль не понимаю. Жду не дождусь, когда практика закончится)

Добавлено через 37 минут

Pascal
1
2
3
4
5
6
if (n2<>m) then
    begin
      a[i2,1]:=n2;
      a[i2,2]:=m;
      i2:=i2+1;
    end;

для чего это????

@Alex1OPS · 05.09.2011, 21:32

если в числе двойки есть (то есть m(число с удаленными 2-ками) не равно изначальному числу) то добавляем его в массив

@student-novi4ok · 05.09.2011, 21:37 **[ТС]**

почему n2 это число без двоек, если мы n2:=n(само число) и в цикле само n2 не изменяем, или все ищменения с n автоматом потом переходят в n2?

@Alex1OPS · 05.09.2011, 21:40

вот именно n2- первоначальное число, а m-число без двоек

@student-novi4ok · 05.09.2011, 21:42 **[ТС]**

Просто не совсем понимаю это условие

Pascal
1
2
3
4
5
6
 if (n2<>m) then
    begin
      a[i2,1]:=n2;
      a[i2,2]:=m;
      i2:=i2+1;
    end;

все до этого понял, хотя зачем нужна переменная b:=2 мы ведь её не используем

@Alex1OPS · 05.09.2011, 22:09

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

if c <> b then
* * * begin
* * * * m := m + c * k;
* * * * k := k * 10;
* * * end;

прям не используем??
это и есть та цифра,с которой мы работаем

@student-novi4ok · 05.09.2011, 22:11 **[ТС]**

Огромное вам спасибо, всю программу понял. искренне вам благодарен.

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. 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, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@student-novi4ok 4 / 4 / 3 Регистрация: 05.09.2011 Сообщений: 113
	05.09.2011, 20:11 [ТС]
	Вопрос что такое pos? 0

@Alex1OPS 101 / 100 / 36 Регистрация: 14.09.2010 Сообщений: 223
	05.09.2011, 20:13
	y:=pos(what,where); функция, которая ищет первое вхождение what в строке where. я использовал функции работы со строками, потому что они значительно облегчают данную Вами задачу 1

@student-novi4ok 4 / 4 / 3 Регистрация: 05.09.2011 Сообщений: 113
	05.09.2011, 20:16 [ТС]
	Я конечно искренне благодарен за решение, а не могли бы вы его оптимизировать для студента 2 курса), чтобы пусть и не более проще, но зато не сильно подазрительно. 0

@Alex1OPS 101 / 100 / 36 Регистрация: 14.09.2010 Сообщений: 223
	05.09.2011, 21:32
	если в числе двойки есть (то есть m(число с удаленными 2-ками) не равно изначальному числу) то добавляем его в массив 0

@student-novi4ok 4 / 4 / 3 Регистрация: 05.09.2011 Сообщений: 113
	05.09.2011, 21:37 [ТС]
	почему n2 это число без двоек, если мы n2:=n(само число) и в цикле само n2 не изменяем, или все ищменения с n автоматом потом переходят в n2? 0

@Alex1OPS 101 / 100 / 36 Регистрация: 14.09.2010 Сообщений: 223
	05.09.2011, 21:40
	вот именно n2- первоначальное число, а m-число без двоек 0

@student-novi4ok 4 / 4 / 3 Регистрация: 05.09.2011 Сообщений: 113
	05.09.2011, 22:11 [ТС]
	Огромное вам спасибо, всю программу понял. искренне вам благодарен. 1