Ответы на вопрос:
Var f1: text; f2: text; s1,s2: string; k1,k2: integer; begin; assign(f1,'f1.txt'); reset(f1); while not eof(f1) do read(f1,s1); close(f1); assign(f2,'f2.txt'); reset(f2); while not eof(f2) do read(f2,s2); close(f2); while pos(',',s1)< > 0 do begin; delete(s1,pos(',',s1),1); inc(k1); end; while pos(',',s2)< > 0 do begin; delete(s2,pos(',',s2),1); inc(k2); end; if k1> k2 then writeln('в первом'); if k2> k1 then writeln('во втором'); if k2=k1 then writeln('равно'); end.
Популярно: Информатика
-
kzifi12.03.2022 05:58
-
alyamirnaya2822.01.2021 05:45
-
evdokiya888p06xhz07.01.2021 06:18
-
typaydevochka21.07.2021 21:05
-
виталий12423.03.2023 12:21
-
Katzkotareva22.02.2022 01:01
-
МашуняДижур27.06.2022 21:41
-
TanyaCat22516.01.2021 11:37
-
АлинаПетрищева04.06.2022 02:09
-
romasivtsov15.05.2023 06:07