RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 15.05.2020, 18:41 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, Lena0111! Код (Pascal) :: выделить код var
a:char;
b:array[1..21]of integer;
c:string;
d:integer;
f:file of char;
begin
assign(f,'200515.txt');
reset(f);
while not eof(f) do
begin
a:=' ';
c:='';
while(a=' ')and not eof(f) do read(f,a);
while(a<>' ')and not eof(f) do
begin
c:=c+a;
read(f,a);
end;
if length(c)in[1..20]then inc(b[length(c)]) else inc(b[21]);
end;
close(f);
for d:=1 to 20 do writeln(d:3,b[d]:5);
writeln('Error:=',b[21]);
end.Удвчи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
