1) x mod 2 = 1
2) if x < 0 then x := -x
3) в
4) б
5) в
6) в
7) б и в
8) \овал: Начало\
\стрелка вниз\
\параллелограмм: N := 2\
\стрелка вниз\
\ромб: N > 200?\
\стрелка да\
\овал: Конец\
\стрелка нет\
\параллелограмм: Вывести число N\
\стрелка вниз\
\параллелограмм: N := N + 2\
\стрелка к ромбу\
нужно вынуть зернышко из мешка с надписью "смесь"..мы уже знаем,что мачеха поменяла ВСЕ таблички..это означает,что ни одна табличка не соответствует действительности)
предположим,что из мешка с надписью смесь мы достаем зерно проса..значит в мешке с надписью "просо" лежит уже не просо,а мак..а в мешке с надписью "мак"лежит смесь..
14-м 1-а 26-ш 1-а.
Для этого она заменила каждую букву в своём имени на её номер в алфавите
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
var a:=ReadArrString(n);
Writeln(40*'-');
foreach var w in a do begin
var wa:=w.ToWords;
if wa[2].ToInteger>100 then Writeln(w)
end
end.