profile
Опубликовано 5 лет назад по предмету Информатика от аселя99999

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

  1. Ответ
    Ответ дан JustPeople
    С динамическим массивом:
    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.
Самые новые вопросы
Носкова Анастасия
Другие предметы - 5 лет назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 5 лет назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 5 лет назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 5 лет назад

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

Попова Полина
География - 5 лет назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.