Дано четное число N ( больше 0) и символы C1 и C2. Вывести строку длины N, которая состоит из чередующихся символов C1 и C2, начиная с C1.
Дано четное число N (>
0) и символы C1 и C2. Вывести строку длины N,
которая состоит из чередующихся символов C1 и C2,
начиная с C1.
Гость
Ответ(ы) на вопрос:
Гостьprogram chisla;
var
a,n:integer;
c1,c2:char;
begin
writeln('введите количество символов');
readln(n);
writeln('введите сами символы');
readln(c1,c2);
if frac(n/2)=0 then
for a:=1 to n div 2 do
begin
write(c1,c2);
end
else
begin
for a:= 1 to n div 2 do
begin
write(c1,c2);
end;
write(c1);
end;
end.
Не нашли ответ?
Похожие вопросы