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

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


textual

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

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.

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

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



Похожие ответы
  1. Помогите написать программу: В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 рах превышающих минимальный.

  1. Рассчитать количество краски, необходимое для покраски окон, если известен расход краски на 1кв. м.

  1. Пожалуйста,помогите с задачей: Определить количество рулонов обоев, необходимых для оклейки 1, 2, 3 и т. д. комнат.

  1. Водится 3 числа, лежащих от -100 до 100. Найти их сумму и количество отрицательных.

  1. В текстовом редакторе создать файл из нескольких строк символов. Вывести его содержимое на экран. В строке с заданным номером k>0 подсчитать количество цифр. Полученное значение записать в конец файла и вывести содержимое измененного файла на экран.

  1. Составить программу, которая заполняет массив 6*6 случайным числами от -5до 10, вычисляет количество четных элементов в указанном столбце матрицы, выводит массив и результат вычислений.

  1. Расстояние L задано в сантиметрах. Определить количество полных метров в нем и остаток в сантиметрах

  1. Дан текстовый файл. Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-».

  1. Дано натуральное число М и целочисленный массив А[1..M]. Сосчитать и вывести количество различных чисел в массиве.Добавлено через 1 минуту помогите пож-та