Дано предложение. вывести 'столбиком' его третий, шестой и.т.д. символ

1

Ответы и объяснения

2014-02-09T11:31:05+04:00
На pascal ABC
var i:integer;
a:string;
begin
readln(a);
i:=3;
while i<=length(a) do begin
writeln(a[i]);
i+=3;
end;
end.