Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в слове, стоящих на четных местах. - Turbo Pascal

Формулировка задачи:

Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в слове, стоящих на четных местах. Выдать эти символы

Код к задаче: «Из символов вводимых пользователем с клавиатуры, составить слово. Подсчитать количество символов в слове, стоящих на четных местах. - Turbo Pascal»

textual
uses crt;
var
  c : char;
  s : string;
  i, k : integer;
begin
  clrscr;
  s := '';  
  writeln('вводите символы окончание ввода "ESC"');
  while c <> #27 do
  begin
    s := s + c;
    c := readkey;
    write(c, ' ')    
  end;
  writeln('составлено слово: ', s);
  write('символы на четных местах: ');
  for i := 1 to length(s) do
    if i mod 2 = 0 then
    begin
      inc(k);
      write(s[i], ' ')
    end;
  writeln;
  writeln('количество символов на четных местах: ', k);
  repeat until keypressed
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 3.750 из 5


СДЕЛАЙТЕ РЕПОСТ