если ли в нем повторяющиеся числа, если да то выбрать их

@Hades_chn · Регистрация: 15.11.2019

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

Дан файл содержащий натуральные числа определить если ли в нем повторяющиеся числа, если да то выбрать их

@Puporev · 21.01.2020, 08:47

Простой АВС или АВС.net?

@Hades_chn · 21.01.2020, 10:06 **[ТС]**

просто ABC

@Puporev · 21.01.2020, 10:40

Pascal

uses crt;
var f:file of integer;
    i,j,a,b,k,p:integer;
begin
//создадим исходный файл
randomize;
assign(f,'file');
rewrite(f);
for i:=1 to 20 do
 begin
  a:=1+random(50);
  write(f,a);
 end;
writeln('Исходный файл');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:3);
 end;
writeln;
reset(f);
writeln('Повторяющиеся числа');
k:=0;
for i:=0 to filesize(f)-2 do
 begin
  seek(f,i);
  read(f,a);
  j:=i+1;
  p:=0;
  while(j<filesize(f))and(p=0) do
   begin
    seek(f,j);
    read(f,b);
    if b=a then
     begin
      write(a:3);
      p:=1;
      k:=1;
     end
    else inc(j);
   end;
 end;
close(f);
if k=0 then write('Таких чисел нет')
end.

@Hades_chn -21 / 1 / 0 Регистрация: 15.11.2019 Сообщений: 212
		1
	если ли в нем повторяющиеся числа, если да то выбрать их 21.01.2020, 08:33. Показов 374. Ответов 3 Метки нет (Все метки) Дан файл содержащий натуральные числа определить если ли в нем повторяющиеся числа, если да то выбрать их 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	21.01.2020, 08:47	2
	Простой АВС или АВС.net? 0

@Hades_chn -21 / 1 / 0 Регистрация: 15.11.2019 Сообщений: 212
	21.01.2020, 10:06 [ТС]	3
	просто ABC 0

	21.01.2020, 10:40

Опции темы