<span>Цифры стоят в алфавитном порядке: 8 (Восемь), 2 (Два) ...</span>
Var
a, b, c: real;
begin
read(a, b, c);
if (a + b > c) and (b + c > a) and (a + c > b)
then write('существует.')
else write('не существует.')
<span>end.</span>
Шаг в перед и назад вроде
Везде используется язык PascalABC.NET 3.2
1)
begin
print(readSeqInteger(3).Average)
end.
Пример ввода: 22 25 28
Пример вывода: 25
2)
begin
print(2*readreal <= readreal ? 'da' : 'net')
end.
Пример ввода: 7 13
Пример вывода: net
Пример ввода: 7 15
Пример вывода: da
3)
begin
print(readSeqInteger(12).Where(x ->Odd(x)).Average)
end.
Пример ввода:
1 2 3 4 5 6 7 8 9 10 11 12
Пример вывода:
6
1) 0, 1, 2, 3, 4, 5, 6, 7, 8
2) 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 20, 21
3) 68, <span>51.75
4) </span><span>300202
5) </span>76.63, <span>3E.CC
</span><span>111000110001.000001
</span><span>111001.011000101
</span>6) 100100
1110
открыть сайты с переводом сс не так уж и сложно