Получить ответ

Алексей Чудинов 4.9 23 отзыва Рейтинг: 3 964 Общаться в чате var s:string; i,a,b:integer; begin a:=0; b:=0; readln(s); for i:=0 to length(s)-1 do begin if s[i]>'а' then inc(a); if s[i]>'А' then inc(b); end; writeln(a,' ',b); end. Добрый день. Меня заинтересовал ваш ответ "var s:string; i,a,b:integer;begina:=0;b:=0;readln(s);for i:=0 to length(s)-1 dobeginif s[i]>'а' t..." на вопрос http://www.liveexpert.org/topic/view/152349-pascal. Можно с вами обсудить этот ответ? Обсудить с экспертом 28.11.11

Еva 4.9 400 отзывов Рейтинг: 122 043 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы