if (($a+$b+$c) % 2 = 0) {$a = 2*$a; $b = 2*$b; $c = 2*$c;}
1. Китайцы - мышонок, Немцы - обезьяний хвост, Итальянцы и французы - улитка
Скорее всего Г: визуальная-зрение,аудиальная-слух,и тд...
1. Понятно, что это Pascal.
2. Будет выведено "9", потому, что цикл не сработает ни разу. Переменная i = 6 а тело цикла выполнится, если i<5
Ответ: 9
Заметим, чтобы сгенерировать строку, нужно знать только предыдущую строку. Будет генерировать по порядку от 1 до n-ой строки.
Программа:
var
n, i: integer;
cur_str, prev_str: string;
begin
read(n);
prev_str := '';
for i := 1 to n do {Генерируем строки по порядку от 1 до n}
begin
str(i, cur_str); {Записываем в текущую строку её порядковый номер}
cur_str := prev_str + prev_str + cur_str; {Дописываем предыдущую строку два раза в начало}
prev_str := cur_str; {Записываем текущею строку вместо предудущей}
end;
writeln(cur_str);
end.