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

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

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.

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

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

  1. Дан текст за которым следует точка. Подсчитать количество символов, следующих за первой буквой М и напечатать эти символы.(задача на строки). Нужен текст программы, и алгоритм).

  1. Вводится текст. Среди символов этого текста имеется несколько цифр. Подсчитать общее количество цифр и количество единиц в строке. Если в тексте нет единиц , выдать соответствующее сообщение

  1. Дана целочисленная функция f(k)= K^3-25K^2+50K+1000 определена только для целых значений аргумента К. Составить программу вычисления значений функции f(k) для 20 значений аргумента К в интервале (-30,60) с выводом лишь тех значений, которые удовлетворяют заданному условию, и подсчетом остальных ее значений. Задать А=30000, В=60000, М=4. Значение f(K) заключено либо между значениями T1=-a-sqrt(b+m), T2=sqrt(a+b+m) , но не равно 0

  1. Помогите пожалуйста Дана последовательность чисел a1 (i=1,2,... ,N).Подсчитать произведения и количество целых чисел , вывести их значения и порядковые номера.

  1. Дана последовательность чисел ai-та (i=1, 2, …, N). Подсчитать количество и вывести все числа величина которых не кратна 5.

  1. У меня считает буквы на первой строке, выводит их в файл, потом считает на второй строке и опять выводит, а мне нужно общее количество каждой буквы в тексте, а не в строке. т.е если в файле написано aaaa aa он должен вывести:a-kol-6 а у меня выводит следующее:a-kol-4 a-kol-2

  1. В заданном массиве подсчитать количество положительных и отрицательных чисел. Вывести на экран заданный массив и счетчики.

  1. Слова в предложении разделены пробелом. В конце предложения точка. Подсчитать количество предложений и количество слов в предложении. (ввод предложений с клавиатуры) Проблема с кодом:


Нашли ошибку?
Развитие проекта
Яндекс.Метрика