Перевисти Pascal в C++ или Си

uses crt;
var
f: text;
CountSymbol, CountWord : array [1..100] of integer;
CountLines : integer;
str : string;
i, j, k : integer;
BEGIN
ClrScr;
CountLines := 0;
k := 0;

Assign(f, 'C:/test.txt');
Reset(f);
while not(EoF(f)) do
begin
Readln(f, str);
str := str + ' ';
j := 0;
CountWord[k] := 0; CountSymbol[k] := 0;
for i := 0 to length(str) do
if str[i] = ' ' then
begin
inc(CountWord[k]);
CountSymbol[k] := CountSymbol[k] + length(copy(str, j, i - j));
j := i + 1;
end;
inc(k);
inc(CountLines);
end;
Close(f);

Assign(f, 'C:/test.txt');
Append(f);
Writeln(f);
Writeln(f, 'Lines: ', CountLines);
for i := 0 to k - 1 do
Writeln(f, 'Line: ', i + 1, ' Word: ', CountWord[i], ' Symbol: ', CountSymbol[i] - 1);
Close(f);

Writeln('OK!');
Readln;
END.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.