Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

066536 / 314

.txt
Скачиваний:
30
Добавлен:
09.06.2015
Размер:
400 б
Скачать
Program zadacha_314;
uses crt;
const n=11;
var
s:string[20];
i:integer;
p:boolean;
begin
repeat
clrscr;
Writeln('Введите 20 символов');
readln(s);
until length(s)=20;
i:=1;
p:=true;
while (i<n) and (p) do
begin
if s[i]<>s[i+10] then
p:=false;
inc(i)
end;
clrscr;
if not(p) then
writeln(s,s)
else
writeln(s);
end.
Соседние файлы в папке 066536