• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Напишите прогу

  • Автор темы Автор темы Dimapokal
  • Дата начала Дата начала
D

Dimapokal

Нужна прога которая из текстового файла input.txt зчитывает количество чисел(не цифр, а именно чисел) и ответ записывает в файл output.txt!!!

эта прога решает- буду ли я дальше учится в универе!!! помогите кто чем может!!! плиз.......
 
Вот держи
Код:
Var F:TextFile;
S:String;
Total:Integer;

Function CalcNumbers(S:String):Integer;
Var R:Integer;
W:string;
StartX, EndX, x:Integer;

function Check(S:string):Boolean;
Var i:Integer;
R:Boolean;
Begin
r:=true;
For i:=1 to Length(S) do
if (s[i]<'0')or(s[i]>'9') then r:=false;
Result:=r;
End;

Begin
r:=0;
S:=' '+S+' ';
for x:=2 to Length(S)-1 do
begin
if (s[x-1]=' ')and(s[x]<>' ') then Startx:=x;
If (s[x]<>' ')and(s[x+1]=' ') then
begin
EndX:=x;
If check(Copy(s,StartX, EndX-StartX+1)) then Inc(R);
end;
end;
Result:=r;
End;

Begin
Assign(F,'Input.txt');
Reset(F);
Total:=0;
While not EOF(F) do begin
Readln(f,s);
Total:=Total+CalcNumbers(S);
end;
Close(F);
ASsign(F,'Output.txt');
Rewrite(F);
Writeln(f,Total);
Close(f);
End.
 
Афтар, читай подпись своего помощника! ты ему дважды должен! :(

BurcevD, а ты молодец! Мало кто вот так ринется помогать...
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab