Регистрация
Murzilka89
09.04.2023 08:56
Информатика
Есть ответ 👍

Люди . подобрать какое-то чудо техники ( не смартфон ) для пересказа . 25

249
284
Посмотреть ответы 2

Ответы на вопрос:

DanProGold
DanProGold
4,8(62 оценок)

адронний колайдер найкраща тема

Exzampkle
Exzampkle
4,4(96 оценок)
Program asd; var  f,g: text;     t,fs,gs: string;     i,k,n: integer;   isfilesequal: boolean; begin  isfilesequal: =true;   assign(f,'fi1.txt');     assign(g,'fi2.txt');     reset(f);     reset(g);   n: =0;   while not eof(f) do    begin      if not isfilesequal then          break;       readln(f,fs);         readln(g,gs);       if fs< > gs then        begin          isfilesequal: =false;             inc(n);             if length(fs)< length(gs) then            t: =fs            else              t: =gs;             for i: =1 to length(t) do            if fs[i]< > gs[i] then                begin                  k: =i;                   break;                 end;         end;     end;   close(f);     close(g);     if isfilesequal then    writeln('.')  else      writeln('строка = ',n,' позиция = ',k);     readln; end.

Популярно: Информатика