Дано натуральное число n. Найти сумму первой и последней цифры этого числа. Верно ли что...

Question

Дано натуральное число n. Найти сумму первой и последней цифры этого числа. Верно ли что данная сумма больше 10?

Дано натуральное число n. Переставить последнюю и первую цифры этого числа. Верно ли, что после перестановки число стало четным?

Дано натурa.льное число n. Найти произведение нечетных цифр числа. Верно ли, что произведение является трехзначным числом?

Дано натуральное число n. Верно ли, что в записи числа три раза встречается цифра 5?

Найти все делители натурального числа n. Верно ли, что их количество , есть четное число?

РЕШИТЕ ПЛИЗ В Pascal

Comments

Всего то? Какая мелочь!

---

ye

---

ну

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=ReadInteger('n=');
  var s:=n mod 10;
  n:=n div 10;
  var d:integer;
  while n>0 do (d,n):=(n mod 10,n div 10);
  s+=d;
  Writeln('Сумма ',s);
  if s>10 then Writeln('Верно') else Writeln('Неверно')
end.

№2

begin
  var s:=ReadInteger('n=').ToString;
  var n:=s.Length;
  (s[1],s[n]):=(s[n],s[1]);
  s.Println;
  if s[n].ToDigit.IsEven then Writeln('Верно') else Writeln('Неверно')
end.

№3

begin
  var n:=ReadInteger('n=');
  var p:=1;
  while n>0 do begin
    var d:=n mod 10;
    if d.IsOdd then p*=d;
    n:=n div 10
    end;
  Writeln('Произведение ',p);
  If p.InRange(100,999) then Writeln('Верно') else Writeln('Неверно')
end.

№4

begin
  var n:=ReadInteger('n=');
  var k:=0;
  while n>0 do begin
    if n mod 10=5 then k+=1;
    n:=n div 10
    end;
  if k=3 then Writeln('Верно') else Writeln('Неверно')
end.

№5

begin
  var n:=ReadInteger('n=');
  var k:=1;
  Writeln('Делители: ');
  for var i:=1 to n div 2 do
    if n mod i=0 then begin
      Print(i);
      k+=1
      end;
  Writeln(n);
  if k.IsEven then Writeln('Верно') else Writeln('Неверно')
end.

Answer 2

Решение в прикрепленном файле: