From a527c928b769b8d56fc414416b9125f8df490e55 Mon Sep 17 00:00:00 2001 From: Sergey Matveev Date: Wed, 19 Oct 2022 13:10:15 +0300 Subject: [PATCH] =?utf8?q?=D0=A1=D0=BE=D0=B2=D0=B5=D1=82=D1=81=D0=BA=D0=B8?= =?utf8?q?=D0=B5=20=D1=8F=D0=B7=D1=8B=D0=BA=D0=B8=20=D0=BF=D1=80=D0=BE?= =?utf8?q?=D0=B3=D1=80=D0=B0=D0=BC=D0=BC=D0=B8=D1=80=D0=BE=D0=B2=D0=B0?= =?utf8?q?=D0=BD=D0=B8=D1=8F?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit https://habr.com/ru/company/ruvds/blog/692594/ Язык Робик: ВКЛЮЧИТЬ ОБХОДЧИК; ЗАПОМНИТЬ ПРОЦЕДУРУ ПРОВЕРКА_СТЫКА; ЕСЛИ ОБХОДЧИК.СТЫК = "НЕИСПРАВЕН" ТО ОТМЕНИТЬ СТЫК; ВПЕРЕД 24М; ЗАКОНЧИТЬ; ПОКА ОБХОДЧИК.ВПЕРЕДИ = "СВОБОДНО" ПОВТОРЯТЬ ПРОВЕРКА_СТЫКА; ПОКА ОБХОДЧИК.СЗАДИ = "СВОБОДНО" ПОВТОРЯТЬ НАЗАД 24М; ВЫКЛЮЧИТЬ ОБХОДЧИК; РАПИРА: ПРОЦ СТАРТ(); ВЫВОД: "ЗДРАВСТВУЙ, МИР!"; КНЦ; ЕСЛИ А > В ТО 1 -> А; ВЫВОД: В; ИНАЧЕ 1 -> В; ВЫВОД: А; ВСЕ; РАЯ (Русский Алгоритмический Язык). Ага, как же, поверим что это не ответ на язык "Ада": алг Сумма квадратов (арг цел n, рез цел S) дано | n > 0 надо | S = 1*1 + 2*2 + 3*3 + … + n*n нач цел i | ввод n; S:=0 | нц для i от 1 до n | | S := S + i * i | кц | вывод "S = ", S кон -- 2.48.1