Написать программы которые:
1. Вводит с клавиатуры строку символов, выводит на экран символы стоящие на позициях кратной 3.
2. Вводит с клавиатуры строку символов, выводит на экран сначала символы стоящие на четных позициях, затем с новой строки символы стоящие на нечетных позициях.
3. Вводит с клавиатуры строку символов, выводит на экран число (количество разных символов которые использовались в введенной строке).
Программа на языке паскаль
1. Вводит с клавиатуры строку символов, выводит на экран символы стоящие на позициях кратной 3.
2. Вводит с клавиатуры строку символов, выводит на экран сначала символы стоящие на четных позициях, затем с новой строки символы стоящие на нечетных позициях.
3. Вводит с клавиатуры строку символов, выводит на экран число (количество разных символов которые использовались в введенной строке).
Программа на языке паскаль
More Questions From This User See All
Answers & Comments
var
s:string;
i,count:integer;
a: set of char;
begin
i:=3;
readln(s);
writeln('1)');
if length(s)>=3 then
repeat
write(s[i]);
i:=i+3;
until i>length(s)
else
writeln('error');
writeln;
writeln('2)');
i:=2;
repeat
write(s[i]);
i:=i+2;
until i>length(s);
writeln;
i:=1;
repeat
write(s[i]);
i:=i+2;
until i>length(s);
writeln;
writeln('3)');
a:=[];
count:=0;
for i := 1 to length(s) do
if s[i] in a then
else
begin
a:=a+[s[i]];
inc(count);
end;
writeln(count);
end.