1) Дано трехзначное число. Определить, является ли сумма его цифр двузначным числом. 2) Дано трехзначное число. Определить какая из его цифр больше. Первая или последняя. Помогите пожалуйста,срочно надо

1) Известны оценки ученика по 10 предметам. Найдите среднюю оценку2) Дано натуральное число. Определить сумму 5ти его последних цифрПомогите составить программу пожалуйста, очень нужно)))

Странный способ просить помощи. Тут принято оформлять свои задачи самостоятельным заданием. Даже если бы я захотел решить две ваши задачи, куда ответ помещать? Так что делайте все, как положено

************* 1 ***************varn, 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Первая цифра меньше третьей