Var
n, s: integer;
begin
readln(n);
s := n mod 10 + n div 10000;
writeln(s);
end.
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\
\стрелка к ромбу\
Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.