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

Задание: составить программу, в которой заменить все буквы а буквой о. (в pascal)

(тема: двумерные массивы)

  1. Ответ
    Ответ дан raf1O5

    program raf105;

    var a:array[1..30,1..20] of string;

    i,j,o:integer;

    s:string;

    begin

    for i:=1 to 30 do

     for j:=1 to 20 do

       a[i,j]:= '';

    writeln('Вводите слова по очереди');

    writeln('Чтобы закончить введите 0');

    repeat

     readln(s);

     if s <> '0'

       then

       begin

         o:= o+1;

         for i:=1 to length(s) do

           a[o,i]:= s[i];

       end;

    until s = '0';

    writeln;

    writeln('Вывод:');

    for i:=1 to o do

    begin

     for j:=1 to 20 do

       if a[i,j] = 'а'

         then a[i,j]:= 'о';

     for j:=1 to 20 do

       if j <> 1

       then

       begin

         a[i,1]:= a[i,1] + a[i,j];

         a[i,j]:= '';

       end;

     writeln(a[i,1]);

    end;

    end.

Самые новые вопросы
Носкова Анастасия
Другие предметы - 4 года назад

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

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

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

Сазонова Анастасия
История - 4 года назад

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

Тетерина Татьяна
История - 4 года назад

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

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

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

Информация

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