задачки на Паскаль

[Ainash]

код программы на Паскаль-очень, очень нужно! ))

[grom333]

Задача С.
Я только без файлов сделал, вместо "Введите преложение" сделай подключение к файлу

program c;
uses crt;
var
i:integer;
str:string;
k:integer;
begin
k:=0;
writeln('vvedite predlojenie');
readln(str);
for i:=1 to length(str) do
    begin
    if (str[i]='s') and (str[i+1]='t') and (str[i+2]='o') and (str[i+3]='r')
and (str[i+4]='y') then k:=k+1;
    end;
writeln('slovo story vstre4aetsya ',k,' raz');
readln;
end.

Задача D.

program d;
var a:array[1..2,1..10] of integer;
      i,n:integer;
      f,f2:text;
begin
assign(f,'d.in');
assign(f2,'d.out');
reset(f);
rewrite(f2);
read(f,n);
for i:=1 to n do begin
read(f,a[1,i],a[2,i]);
end;
for i:=1 to n do begin
if (a[1,i] div 2 = 0) and (a[2,i] div 2 = 0) then writeln(f2,'NOT GOOD')
else writeln(f2,'GOOD');
end;
close(f);
close(f2);
end.

Задача F

program f;
Const m=100;
var
        i,j,min,t,s,k,N,beg,en:integer;
        x:array [1..m] of integer;
begin
Randomize;
writeln('vvedite koli4estvo 4isel');
readln(N);
writeln('vvedite ',n,' 4isel');
For i:=1 to N do
        begin
    readln(x[i]);
        end;
writeln;
for i:= 1 to N do min:=min+x[i];
beg:=1;
en:=N;
for i:= 1 to N-1 do
        begin
                t:=0;
                for j:= i to N do t:=t+x[j];
                        if T<min then min:=T;
                t:=0;
                for j:= 1 to i do t:=t+x[j];
                if T<min then     min:=T;
                for j:= i+1 to n do
                        begin
                                t:=0;
                                for k:= i to j do t:=t+x[k];
                                if T<min then     min:=T;
                        end;
        end;
writeln('minimalnaya summa ',min);
readln;
end.

[anydevelop]

Задача A (8 - 9 класс), с файлами:

var
    s, n: string;
    i, j: integer;
begin
    assign(input, 'A.in');
    assign(output, 'A.out');
    reset(input);
    rewrite(output);
    readln(s);
    n := '';
    for i := 1 to length(s) do
        if (ord('0') <= ord(s[i])) and (ord(s[i]) <= ord('9')) then
            n := n + s[i];
    j := 1;
    for i := length(n) downto 1 do
    begin
        while not ((ord('0') <= ord(s[j])) and (ord(s[j]) <= ord('9'))) do
            j := j + 1;
        s[j] := n[i];
        j := j + 1;
    end;
    writeln(s);
    close(input);
    close(output);
end.

[anydevelop]

Задача E, с файлами:

function simple(x: integer): boolean;
var
    i: integer;
begin
    i := 2;
    simple := true;
    while i < x do
    begin
        if x mod i = 0 then
        begin
            simple := false;
            break;
        end;
        i := i + 1;
    end;
end;

var
    s: string;
    i, j: integer;
begin
    assign(input, 'E.in');
    assign(output, 'E.out');
    reset(input);
    rewrite(output);
    readln(s);
    i := length(s);
    while not simple(i) do
        i := i - 1;
    for j := 1 to i do
        write(s[j]);
    close(input);
    close(output);
end.

[Ainash]

Спасибо большое, большое! Я от Вас без ума! ))) Обожаю умных людей!