блок схема для оператора case
Program p4;var k : integer; s : string;begin Write('Введите строку:'); Readln(s); k := Pos('a', s); case k of 0: WriteLn('буквы "a" нет в предложении'); 1: WriteLn('буква "a" первая (нет предществующихсимволов)'); 2: WriteLn('символ перед "a": '+Copy(s,k-1,1) ); end; Readlnend.
|
|
|
|
