Войти Регистрация Спроси ai-bota

Составьте , вычеркивающую из слова x буквы, стоящие на четных местах.

Ответ:

marshaldir80

01.10.2020 14:31

С динамическим массивом:
VAR
   i: Integer;
   a: Array of Char;
BEGIN
   Assign(input, 'input.txt'); ReSet(input);

   SetLength(a, 1);
   While (not eoln(input)) do begin
      SetLength(a, Length(a)+1);
      Read(a[Length(a)-1]); End;

   For i := 1 to Length(a)-1 do
   If (not Odd(i)) then a[i] := '-';

   For i := 1 to Length(a)-1 do Write(a[i]);
END.

0,0(0 оценок)

Популярные вопросы: Информатика

damnit

17.01.2020 05:54

Как называются величины, значения которых устанавливаются в определенной части программы один раз и не могут измениться в процессе выполнения программы.пример описания таких величин....

Катя9092

24.03.2022 22:17

1.составьте диагональную программу,которая спрашивает сколько товара и по какой цене берёт покупатель,сообщает ему стоимость покупки.затем спрашивает сколько денег он даёт и сообщает...

ангелина67890

24.08.2021 20:36

Дано сначала число n, а затем n натуральных чисел, не превосходящих 100. выведите на экран в порядке возрастания только те из них, которые встречаются в данной последовательности...

ghtrwsd18

24.08.2021 20:36

Впрограмме используется целочисленный одномерный массив а с индексами от 0 до 5. ниже представлен фрагмент программы, записанный на паскале for i: =0 to 5 do a[i]: =i; for i: =0 to...

artikrv

28.09.2022 23:16

Решить на python, даны основания равнобедренной трапеции и угол при большем основании, найти площадь трапеции, отправьте код с объяснениями....

mashaguglik

29.05.2020 08:29

Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. вывести порядковый номер этого числа....

kristinka75

15.12.2021 01:00

Дано сначала число n, а затем n натуральных чисел, не превосходящих 100. выведите на экран в порядке возрастания только те из них, которые встречаются в данной последовательности...

nasta086

15.02.2021 21:54

Дана матрица размера m × n. упорядочить ее строки так, чтобы их минимальные элементы образовывали убывающую последовательность. pascal abc...

ladyL6667

15.12.2022 08:51

1.монитор и палитра 256 цветов(найти i вес одной точки) 2.дана картинка 25х28(найти точки) 3.размер картинки 174 281 байт, скорость передачи канала связи 512бит/сек найти сколько...

shevyakova2018

15.12.2022 08:51

Составить программу, которая подсчитывает общее количество общих количественных целых пятизначных чисел, которые удовлетворяют условиям: a) abcde - пятизначное число b) a, b, c, d...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку