var a,b,c,z:integer;
begin
readln(a, b, c);
z:=0;
if (a > b) and (a > c) then begin
z:= b+c;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник');
end
else if (b > a) and (b > c) then begin
z:= a+c;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник');
end
else if (c > a) and (c > b) then begin
z:= b+a;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник')
end
else if (a = b) and (a = c) then
write('Это равностороний треугольник')
else write('Это равнобедренный треугольник');
end.
Объяснение:
Программа:
Python:
Назовем число палиндромом, если оно не меняется при перестановке его цифр в обратном порядке. Напишите программу, которая по заданному числу K выводит количество натуральных палиндромов, не превосходящих K.
K = int(input('K = '))
n = 0
for i in range(1, K + 1):
if str(i) == str(i)[::-1]:
n += 1
print(n)