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