Предмет: Информатика,
автор: mir9
дано предложение. вывести 'столбиком' его третий, шестой и.т.д. символ
Ответы
Автор ответа:
0
на 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.
var i:integer;
a:string;
begin
readln(a);
i:=3;
while i<=length(a) do begin
writeln(a[i]);
i+=3;
end;
end.
Похожие вопросы