Подсчитать количество прописных букв - Pascal

Формулировка задачи:

Пследовательно вводятся символы латинских прописных и строчных букв до ввода символа пробела. Подсчитать количество прописных букв

Код к задаче: «Подсчитать количество прописных букв - Pascal»

textual
uses Crt;
var c: Char; n: Integer;
begin
  repeat
    c:=ReadKey; if c=#0 then ReadKey;
    if c in ['A'..'Z'] then Inc(n);
  until c=' ';
  WriteLn(n);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 3.500 из 5


СДЕЛАЙТЕ РЕПОСТ