Question

ДАЮ 50 БАЛОВ! ОЧЕНЬ НУЖНА ВАША ПОМОЩЬ! Напишите программу для истолнителя робота, чтобы он прошол указанной точки закрасил квадраты по образцу (при написании алгоритма используйте цикл пока и ветвление). Для написания алгоритма можно использовать ниже перечисленные команды: вверх вниз влево вправо сверху свободно снизу свободно слева свободно справа свободно Эти команды можно использовать вместе с условием «если», имеющим следующий вид: если условие то последовательность команд все Например, для передвижения на одну клетку вправо, если справа нет стенки, и закрашивания клетки можно использовать такой алгоритм: если справа свободно то вправо закрасить все В одном условии можно использовать несколько команд проверки условий, применяя логические связки и, или, не, например: если (справа свободно) и (не снизу свободно) то вправо все Для повторения последовательности команд можно использовать цикл «пока», имеющий следующий вид: нц пока условие последовательность команд кц Например, для движения вправо, пока это возможно, можно использовать следующий алгоритм: нц пока справа свободно вправо кц

Answer 1

Readln a readln b readln c if a=b and b=c then write (" треугольник равносторонний") elsr if (a=b) or ( a=c) or (b=c) then write ("треугольник равнобёдренный")end