Question

Решить в pascal ! 1)дано предложение. напечатать все его буквы «и». 2)дано предложение. вывести столбиком его третий, шестой и т. д. символы.

Answer 1

1)
program a;
var s:string;
i:integer;
begin
readln(s);
for i:=0 to length(s) do
if(s[i]='и') then write('и');
end.
2)
program a;
var s:string;
i:integer;
begin
readln(s);
for i:=1 to round(length(s)/3) do
writeln(s[i*3]);
end.

Answer 2

1)
var
text:string;
i:integer;
begin
readln(text);
for i:=1 to Length(text) do
if text[i]='и' then
write('и ');
end.

2)
var
text:string;
i:integer;
begin
readln(text);
for i:=1 to (Length(text)  div 3) do
begin
writeln(text[i*3]);
end;
end.