символьные переменные

[[Te[M]ka]]

uses crt;
var s:string;
i,j,n:integer;
begin
clrscr;
writeln('введите строку символов');
readln(s);
i:=1;
while (i<=length(s)) do begin
if s[i]=':' then begin ;
j:=i;break end else i:=i+1;
end;
for i:=1 to j-1 do
write(s[i]);
end.

вот я 1ю доделал. может быть интересно кому. тут прям чуток понял )
сейчас б и в доделываю. и еще буду следущую лабораторную делать ) уже на другую тематику. )

[Shift_sk]

а

var s:array[1..100] of char;
    i,j,n:integer;
    begin
    read(n);
    readln;
    for i:=1 to n do
    readln(s[i]);
    i:=1;
    while (i<=n) do begin
    if s[i]=':' then begin ; j:=i;break end else i:=i+1;
    end;
    for i:=1 to j-1 do
    write(s[i]);
    end.


в

var s:array[1..100] of string;
    i,j,n,k:integer;
    begin
    read(n);
    readln;
    for i:=1 to n do
    readln(s[i]);
    i:=1;
    s[n+1]:=' ';
    k:=n+1;
    while (i<=n+1) do begin
    if s[i]=':' then begin ; j:=i;break end else i:=i+1;
    end;
    for i:=j+1 to n+1 do begin
    if s[i]=':' then begin k:=i; break; end;
    end;
    if k<>n+1 then k:=k-1;
    for i:=j+1 to k do
    write(s[i]);
    end.

б

var s:array[1..100] of char;
    i,j,n:integer;
    begin
    read(n);
    readln;
    for i:=1 to n do
    readln(s[i]);
    i:=1;
    while (i<=n) do begin
    if s[i]=':' then begin ; j:=i;break end else i:=i+1;
    end;
    for i:=j+1 to n do
    write(s[i]);
    end.

[Shift_sk]

вот это под твое условие с вводом отдельных символов)тоесть вводим и количество символов и сами символы!

[[Te[M]ka]]

спасибо. однако путевый форум. на киберфорум обратился там даже никто не ответил, а тут отзывчивый человек имеется. )

[Shift_sk]

люблю посогать если сам умею)даже если нет наработак) мне проще написать с нуля чем вникать в чьето творение и искать ошибки)

[[Te[M]ka]]

а ты не в курсе как с этой задачей разобратся? на масивы она. отдельную тему ведь еще надо создавать для задачи другой?

[[Te[M]ka]]

а вам за помощ как-то может быть дать поощрение денежное?
и не подскажите какой Си лучше начать учить, а то их что-то куча целая.

[Shift_sk]

не денги эт лишнее ))я не алчный)
насчет си я сам вот только наал изучать и изучаю dev c++))

[Shift_sk]

var a,b,c:array[1..29] of integer;

k,i,n:integer;
begin
for i:=1 to 28 do
read(a[i]);
for i:=1 to 28 do
read(b[i]);
k:=29;
c[29]:=0;
for i:=1 to 28 do
 begin
 c[k-i]:=trunc((a[k-i])/(b[k-i]-c[29-i+1]));
 k:=k-1;
 end;
 for i:=1 to 29 do
 write(c[i],' ');
 end.

думаю решение такое...но тестов нет может быть и неправильное!