1 Что возвращает функция Today = Now? 2 Что возвращает функция Today = Date?
3 Что возвращает функция Today = Time?
4 Что возвращает функция Len(«строка») и Left («строка»,n)
5 Что возвращает функция Asc(«строка») и Right («строка»,n)
6 Что возвращает функция Mid («строка»,m,n) и Сhr(ЧисКод)

1) Площадь Тихого океана – 179 млн.кв.км. - НЕИНФОРМАТИВНО: в данный момент не нужно, будет нужно - найду сам.
2) Москва – столица России - НЕИНФОРМАТИВНО: это я и сам знаю.
3) Вчера весь день шел дождь - НЕИНФОРМАТИВНО: это я и так видел.
4) Завтра ожидается солнечная погода - ИНФОРМАТИВНО, можно спланировать, как провести день.
5) Дивергенция однородного векторного поля равна нулю - НЕИНФОРМАТИВНО, потому что ненужно.
6) Dog – собака (по-английски) НЕИНФОМАТИВНО: это я сам знаю.
7) Ro do may si, lot do may НЕИНФОРМАТИВНО: какая-то бессмыслица.
8) 2*2=4 - НЕИНФОРМАТИВНО, это вообще банальность.

1

var
n, s: integer;

begin
  Write('Введите трехзначное число: ');
  Readln(n);
  s := (n div 100) + ((n mod 100) div 10) + (n mod 10);
  if (s in [10..99]) then Writeln('Сумма цифр двухзначная (', s, ')')
  else Writeln('Сумма цифр не двухзначная (', s, ')')
end.

Тестовое решение:

Введите трехзначное число: 269
Сумма цифр двухзначная (17)

Введите трехзначное число: 125
Сумма цифр не двухзначная (8)

2

var
  n, d1, d3: integer;

begin
  Write('Введите трехзначное число: ');
  Readln(n);
  d1 := (n div 100);
  d3 := (n mod 10);
  if d1 > d3 then Writeln('Первая цифра больше третьей')
  else if d1 = d3 then Writeln('Первая цифра равна третьей')
  else Writeln('Первая цифра меньше третьей')
end.

Тестовое решение:

Введите трехзначное число: 739
Первая цифра меньше третьей