Дано натуральное число n. найти сумму первой и последней цифры этого числа. верно ли что данная сумма больше 10? дано натуральное число n. переставить последнюю и первую цифры этого числа. верно ли, что после перестановки число стало четным? дано натурa.льное число n. найти произведение нечетных цифр числа. верно ли, что произведение является трехзначным числом? дано натуральное число n. верно ли, что в записи числа три раза встречается цифра 5? найти все делители натурального числа n. верно ли, что их количество , есть четное число? решите в pascal
// Внимание! Если программа не работает, обновите версию!
№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.