pascalabcnet/InstallerSamples/CheckedTasks/PT4/String9.pas

16 lines
302 B
ObjectPascal
Raw Permalink Normal View History

// Пример решения задачи String9 из электронного задачника Programming Taskbook
2015-05-14 22:35:07 +03:00
uses PT4;
var
n: integer;
c1,c2: char;
s: string;
begin
Task('String9');
read(n,c1,c2);
s := '';
for var i := 1 to n div 2 do
s := s + c1 + c2;
write(s);
end.