<span>var n:integer;
begin
write('n = ');
readln(n);
if abs(n) div 100 = abs(n) mod 10
then writeln('Перевертыш') else writeln('Не перевертыш');
end<span>.
Пример:
</span><span>n = 121
Перевертыш</span></span>
Ответ:
stroca = input()
summa = 0
while stroca != 'Спасибо.':
summa += 1
stroca = input()
summa += 1
print(summa)
Объяснение:
Одинизних, наверное 3д моделирование
1)Это четное число?
-Да (1)
2)Меньше 50?
-Да (2)
3) Меньше 25?
-Да(3)
4) Меньше 12?
Да(4)
5)Меньше 6?
да(5)
Меньше 3?
да(6)
Это единица
Var x,y : real;
begin
readln(x,y);
if (x>=0)and(y<=1)and((x*x+y*y<=1)or(y>=x-1))
then writeln('YES')
else writeln('NO')
end.
Пример:
0.5 -0.5
YES