1. программа в одной из современных версий паскаля: // pascalabc.net 3.1, сборка 1211 от 31.03.2016 begin var s: =readlnstring('исходная строка: '); writeln('результат: ',s.matchvalues('[a-za-zа-яа-яёё]').joinintostring('')); end. тестовое решение: исходная строка: // pascalabc.net 3.1, сборка 1211 от 31.03.2016 результат: pascalabcnetсборкаот 2. программа в "школьной версии" // pascalabc.net 3.1, сборка 1211 от 31.03.2016 const legal=['a'..'z','a'..'z','а'..'я','а'..'я','ё','ё']; var s: string; i: integer; begin write('исходная строка: '); readln(s); for i: =length(s) downto 1 do if not(s[i] in legal) then delete(s,i,1); writeln('результат: ',s); end.
rikki07834591
12.12.2020
#код на ruby 2.2.3p173 def distance(x1, y1, x2, y2) return ((x1 - x2) ** 2.0 + (y1 - y2) ** 2.0) ** 0.5 end def zadanie(points) return 0 if points.size < 2 s = 0 for i in .size s += distance(points[i-1][0], points[i-1][1], points[i][0], points[i][1]) end return s end # примеры применения p zadanie([[1,1]]) p zadanie([[1,1],[2,2]]) p zadanie([[1,1],[2,1],[3,1],[4,1],[5,1],[6,1],[7,1],[8,1],[9,1]]) p zadanie([[0,1],[2,1],[3,2],[4,1],[5,1],[6,1],[7,2],[8,1],[9,1],[7,2],[8,1],[9,1]])
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какое расширение имеют файлы в версии scratch 2.0
∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆