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

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


textual

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

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.

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

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



Похожие ответы
  1. После символа «:» вставить «*», если количество символов «=» равно 5 строка вводиться пользователем

  1. Дана последовательность символов. Удалить словосочетание «ма». Покажите пожалуйста мне хотя бы саму суть, не надо в ответ прикреплять другие темы, я их посмотрел, но в голову все равно ничего не приходит. Спасибо за ранее.

  1. помогите решить задачьку в паскале Найти сумму целых положительных четных чисел, вводимых с клавиатуры. Технические условия. Количество чисел N, которые будут введены с клавиатуры,задают в начале программы (4

  1. Напишите программу, которая заменяет во всей строке одну последовательность символов на другую. Я пыталась сделать что-то такое,

  1. Нужно в окне Windows(X, Y); по краям без отступом от краев сделать рамку из символов псевдографики. Когда доходит до последней строки и последнего символа, автоматически происходит переход на новую строку и все рамка сдвигается вверх. Как сделать чтобы этого не происходило?

  1. выяснить, каким символом в заданном тексте больше- цифр или пробелов( не исключая и случай равенства)ю[PASCAL]

  1. В заданном слове произвести обмен первого и последнего символов. Я сделал, но мне сказали сделать без переменной "С" чтобы как-то оптимизировать программу. Вот мое решение но сделать нужно как-то по другому чуток

  1. нужно сделать такую программу чтобы я писал слово например "куркума" и чтобы выводило "к*у*р*к*у*м*а" И если я напишу другое слово чтобы делалось так же. Писать на основе этой программы:

  1. Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран кол-во считанных букв. Вводимые символы разделяются с помощью клавиши . Предполагается, что можно вводить строчные и прописные буквы латинского алфавита и символ <*> является признаком конца последовательности.

  1. Добрый день! Дана задача: Определить сумму ASCII-кодов символов,составляющих строку a$. Вывести полученное значение и строку b$,состоящую из символов,ASCII-коды которых на заданное число n больше соответствующих символов строки a$. Буду безмерно благодарен за любую помощь!