Вопрос, который вызвал трудности
Из вводимого с клавиатуры слова вырезать каждую третью букву (программа на Паскале)
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Из вводимого с клавиатуры слова вырезать каждую третью букву (программа на Паскале)
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
program aa;
var a:string;
k,x: integer;
begin
readln(a);
k:=length(a);
x:=3;
while x<=k do
begin
a[x]:=;
x:=x+3;
end;
writeln(a);
readln;
end.
var a:string;
k,x: integer;
begin
readln(a);
k:=length(a);
x:=3;
while x<=k do
begin
a[x]:=;
x:=x+3;
end;
writeln(a);
readln;
end.