<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var n:=ReadInteger('n=');
n.Step(n).TakeWhile(x->x<=50).Println
end.
Язык C++. Решения смотри во вложениях.
Зашифрованное слово - криптоанализ
При шифровании не использовался рисунок справа. Это так называемый масонский шифр. Чтобы расшифровать, нужно символ как бы подставить в рисунок. Например, 1 символ показывает, что слева, сверху и снизу от него есть перегородка. В сетке нам подходит две буквы - Й, К. Точка указывает, что буква нужна вторая, а именно К. Возьмем 5 символ. В сетку он не подходит, а подходит в рисунок посередине, перекрестие, и именно вверх. Это буквы С, Т. Точка указывает на букву Т. Отсутствие точки означает, что берется первая буква
Var a,b,c : real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)
then writeln('Треугольника не существует')
else if (a<>b)and(b<>c)and(a<>c)
then writeln('Треугольник разносторонний')
else if (a<>b)or(b<>c) then writeln('Треугольник равнобедренный')
else writeln('Треугольник равносторонний');
end.
Пример:
<span>a=3
b=4
c=6
Треугольник разносторонний</span>
Обращайте внимание на кол-во раз которое нужно повторить команду, если например вам будет дано повтори 4 [вперед n направо 60] то получится незамкнутая ломаная линия, о шестиугольнике и речи идти не может. расстояние которое черепашка должен пройти вперед не имеет никакого значения, главное чтоб оно было больше единицы, чтоб он не крутился на месте.
