Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
case
блок схема для оператора 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.
1 | Автор: irsen22 | 2013-05-13, 16:05   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: