Var S1,S2:string; i:integer; Begin Write('Введите слово: '); ReadLn(S1); For i:= 1 to Length(S1) do S2:=S1[i]+S2; if S1=S2 then WriteLn('Да') else WriteLn('Нет'); End.
1) day integer (PK) month varchar(10) (PK) temperature integer falls varchar(50) wind varchar(50)
3) дату всетаки лучше задавать датой, а не число отдельно, месяц отдельно, условий на них писать море год не указан, так что в следующем году ждут проблемы не наложены ограничения на поля Осадки и Ветер, потому в них может быть написано что угодно, лучше все возможные варианты закинуть в отдельные таблицы
2) не одна таблица а система таблиц конечно же Автор id integer (PK) name vaechar(50)
Издательство id integer (PK) name vaechar(50)
Книга id integer (PK) name vaechar(50) language varchar(50) id_publisher integer (FK)
Произведение id integer (PK) name vaechar(50) original_name varchar(50) id_auther integer (FK)
Произведения в книге id integer (PK) id_book integer (FK) id_proizvedenie integer (FK)
A - Аня, b - Боря, v - Вася, g - Галя, d - Даша, i - Иван. a>b, v>g, d<i, v<a, d>b; Мы знаем, что а>b, значит ,что b<v; Мы знаем, что d>b, значит ,что b<i; Мы знаем, что v>g и v<a, значит ,что b<v; Следовательно мы нашли обладателя меньшей флешки. Им стал Боря. Раз b самый меньший, то в дальнейших расчетах его можно не использовать. Мы знаем, что a>v, а это значит ,что a>g т.к. v>g ! Мы знаем, что i>d и что d>b, а отношения a к i из условия найти нельзя... Поэтому обладателем самой большой флешки может быть как и Аня так и Иван.
S1,S2:string;
i:integer;
Begin
Write('Введите слово: ');
ReadLn(S1);
For i:= 1 to Length(S1) do
S2:=S1[i]+S2;
if S1=S2 then WriteLn('Да')
else WriteLn('Нет');
End.