<html>
<head>
<meta charset="utf-8">
<title>Задание</title>
<style type="text/css">
TABLE {
width: 400px; /* Ширина таблицы */
height: 500px; /* Высота таблицы */
border: 3px solid #2e8b57; /* Рамка вокруг таблицы */
}
TD, TH {
padding: 3px; /* Поля вокруг содержимого ячеек */
text-align: center; /* Выравнивание по центру */
}
.lc {
font-weight: bold; /* Жирное начертание текста */
text-align: left; /* Выравнивание по левому краю */
}
</style>
</head>
<body>
<table border="1">
<caption>Расписание</caption>
<tr>
<td>Номер урока</td>
<td>Название урока</td>
<td>Номер кабинета</td>
<td>Преподаватель</td>
</tr>
<tr>
<td></td><td></td><td></td><td></td>
</tr>
<tr><td></td><td></td><td></td><td></td></tr>
<tr><td></td><td></td><td></td><td></td></tr>
<tr><td></td><td></td><td></td><td></td></tr>
<tr><td></td><td></td><td></td><td></td></tr>
<tr><td></td><td></td><td></td><td></td></tr>
<tr><td></td><td></td><td></td><td></td></tr>
<tr><td></td><td></td><td></td><td></td></tr>
</table>
</body>
</html>
Объяснение:
Частичные пояснения есть в коде.
{функция проверки на палиндром} function palind(s:string):boolean; var i:integer; fl:boolean; begin fl:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then fl:=false; Result:=fl end;
{основная программа} begin writeln('Введите строку...'); readln(s); if palind(s) then writeln('Данная строка является палиндромом!') else writeln('Данная строка НЕ является палиндромом!') end.
Без функции: var s:string;
i:integer; palin:boolean; {основная программа} begin writeln('Введите строку...'); readln(s);
fl:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then fl:=false;
if palin then writeln('Данная строка является палиндромом!') else writeln('Данная строка НЕ является палиндромом!') end.