2 похожие задаи, строки Опции

[-Даша-]

1.Ввести с клавиатуры строку. Вывести на экран первую половину этой строки
2.Ввести с клавиатуры строку. Вывести на экран вторую половину этой строки

Вот такой вопрос: а если в строке нечётное кол-во элементов, что делать?
1)uses crt;
var a,b,c:string;
r,q:integer;
begin clrscr;
writeln('Vvedite stroky');readln (a);
writeln('Dlina stroki:',length(a));
q:=length(a);
if length(a) mod 2=0 then r:=q/2 ; {нашли длину половины строки }
{for i:=1 to r do begin}
{затем вывод первой половины строки}
writeln('Первая половина строки:',);
else
{а дальше как?}


readkey;clrscr;
end.



Вопрос: как всё это прописать в паскале грамтно??? и правильно ли я поняла ход решения программы???



Сообщение отредактировано: -Даша- - 22.06.2008 17:17

[Client]

uses crt;
var
   s:string;
   i,k:byte;
begin
     clrscr;
     readln(s);
     if odd(length(s)) then k:=length(s) div 2+1
     else k:=length(s) div 2;
     for i:=1 to k do write(s[i]);
     writeln;
     for i:=k+1 to length(s) do write(s[i]);
     readkey
end.

Вот такой вопрос: а если в строке нечётное кол-во элементов, что делать?

Это уж как ты захочешь

[-Даша-]

Client
Спасибо за помощь!

Сообщение отредактировано: -Даша- - 22.06.2008 17:29