<span>Винни-Пух любит мед как никто другой
</span><span>Винни-Пух любит мед как я люблю плакать
</span><span>дверь в дом открыта но Вини не идет кушать мед</span>
Program zadacha;vara,b:real;beginwriteln('vvedite dva chisla');read(a,b);if a>b then writeln(a,'>',b);if a<b then writeln(a,'<',b);if a=b then writeln(a,'=',b);end.
#!/usr/bin/python3
import math
a = 1.0
b = 2.0
c = 3.0
A = math.degrees(math.acos(math.radians(((b**2 + c**2 - a**2) / 2 * b * c))))
B = math.degrees(math.acos(math.radians(((a**2 + c**2 - b**2) / 2 * a * c))))
C = math.degrees(math.acos(math.radians(((a**2 + b**2 - c**2) / 2 * a * b))))
ravnobedr = (a == b and a == c) or (a == b and b == c) or (a == c and b == c)
ravostor = a == b == c
priamoug = A == 90 or B == 90 or C == 90
ostroug = A < 90 or B < 90 or C < 90
tupoug = A > 90 or B > 90 or C > 90
print(
'''
равнобедренный {}
равносторонний {}
прямоугольный {}
остроугольный {}
тупоугольный {}
'''.format(
ravnobedr,
ravostor,
priamoug,
ostroug,
tupoug,
)
)
для разработки объемного образа (изображения), деталей объекта
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ReadInteger('Введите целое число, не превышающее 9:');
if a<10 then Writeln('S2=',Range(a,10).Select(i->i*i).Sum)
else Writeln('Введенное значение больше 9')
end.
<u><em>Тестовое решение</em></u>
Введите целое число, не превышающее 9: -7
S2=525