Задача по string.

[forged]

Задача по string.
Дано четное число N(>0) и символы C1 и C2. Вывести строку длины N,
которая состоит из чередующихся символов С1 и С2, начиная с С1.
Например:
N=6
C1='w' C2='1'
'w1w1w1'
Напишите код.

[Mad_Cat]

var n:integer;
c1,c2:char;
begin
readln(c1,c2);
readln(n);
while n>0 do begin
if n>=2 then write(c1,c2)
else write(c1);
dec(n,2);
end;
end.

[Poma][a]

if n>=2 then

Наверное, можно отбросить эту развилочку, т.к. в задании прописано что n - четное.

[forged]

А объясните как это работает))) не понял. и что за оператор dec - что он делает?

[MisterDie]

Сообщение от forged

dec - что он делает?

dec(n,2); //уменьшает переменную n на 2
dec(n); //уменьшает n на 1
dec(n,a); //уменьшает n на a

[ViktorR]

Или так:

var n, i:integer;
c1,c2:char;
begin
readln(c1,c2);
readln(n);
for i := 1 to n div 2 do
   write(c1,c2);
writeln;
end.

Как-то так ...

[hon]

forget, вообщето есть гугл, чтобы узнать, что такое inc.

[Poma][a]

forget, вообщето есть гугл, чтобы узнать, что такое inc.

1) Там был Dec
2) Есть справка
3) ТС уже срубил готовое задание и ушел.. Так что боюсь Вам совет канет в вечность..