1 задача
var a: string;
begin
write('Введите двузначное число: ');
readln(a);
writeln((a.First() = a.Last()) ? 'Цифры одинаковы' : 'Цифры различаются');
end.
2 задача
var
month: integer;
season: string;
begin
write('Введите номер месяца: ');
readln(month);
case month of
1,2,12: season := 'Зима';
3..5: season := 'Весна';
6..8: season := 'Лето';
9..11: season := 'Осень';
else season := 'Вы ввели неверный номер месяца';
end;
writeln(season)
end.
3 задача
var
age: integer;
ending: string;
begin
write('Введите возраст: ');
readln(age);
if (age mod 100 >= 10) and (age mod 100 <= 20)
then ending := 'лет'
else
case (age mod 10) of
1: ending := 'год';
2..4: ending := 'года';
5..9, 0: ending := 'лет'
end;
write(age, ' ', ending)
end.
В 1989 году, работая в CERN над внутренней сетью организации, Тим Бернерс-Ли предложил глобальный гипертекстовый проект, теперь известный как «Всемирная паутина». Проект подразумевал публикацию гипертекстовых документов, связанных между собой гиперссылками, что облегчило бы поиск и консолидацию информации для учёных CERN. Для осуществления проекта Тимом Бернерсом-Ли (совместно с его были изобретены идентификаторы URI, протокол HTTP и язык HTML. Это технологии, без которых уже нельзя себе представить современный Интернет. В период с 1991 по 1993 год Бернерс-Ли усовершенствовал технические спецификации этих стандартов и опубликовал их. Но, всё же, официально годом рождения Всемирной паутины нужно считать 1989 год.