Дано натуральное число. Определить, верно ли, что:
а) Начинается и заканчивается одной и той же цифрой
б) В нем нет цифры 0
2.Последовательность чисел оканчивается числом 100. Есть ли среди них число 77 Указать номер первого из них
заранее спасибо)
Стучи в агент.
Вот 1:
Program otvet;
Uses Crt;
Var n, n1, n2, i, j : Integer;
b : Boolean;
Begin
ClrScr;
Write('Введи n:');
ReadLn(n);
n2 := n;
n1 := n mod 10;
b := false;
i := 0;
Repeat
If n mod 10 = 0 Then b := true;
i := i + 1;
n := n div 10;
Until n = 0;
For j := 1 To i - 1 Do
n2 := n2 div 10;
WriteLn('Число содержит 0 : ', b);
WriteLn('Число начинается и заканчивается одной и той же цифрой : ', n1 = n2);
ReadLn;
End.
⇢