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

ИНФОРМАТИКА !!! ПОМОГИТЕ!!!!!!
составить программу в паскале, в которой с клавиатуры вводятся 2 текстовых выражения, вычисляется и печатается длина каждого из них. В первом выражении все буквы "а" заменяются на "о", Во втором выражении все буквы "К" заменяются на ""л

  1. Ответ
    Ответ дан petyaGavrikov
    var s1,s2:string; l1,l2,i:integer;
    begin
    writeln('1 строка:');
    readln(s1);
    writeln('2 строка:');
    readln(s2);
    l1:=length(s1);
    l2:=length(s2);
    writeln('Длина 1-ой строки = ',l1);
    writeln('Длина 2-ой строки = ',l2);
    for i:=1 to l1 do
     if (s1[i]='А')or(s1[i]='а') then s1[i]:='о';
    for i:=1 to l2 do
     if (s2[i]='К')or(s2[i]='к') then s2[i]:='л';
    writeln('Изменённые строки:');
    writeln(s1);
    writeln(s2);
    end.

    Пример:
    1 строка:
    АБВГДабвгд
    2 строка:
    Ку-ка-ре-ку
    Длина 1-ой строки = 10
    Длина 2-ой строки = 11
    Изменённые строки:
    оБВГДобвгд
    лу-ла-ре-лу
Самые новые вопросы