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

Question

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

Answer 1

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

Comments

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

---

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