Дано четное число N (>
0) и символы C1 и C2. Вывести строку длины N,
которая состоит из чередующихся символов C1 и C2,
начиная с C1.
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад