Составить программу, которая подсчитывает количество заглавных букв в промежутке от "Б" до "ф".
10-11 класс
|
var a :set of char;
s: string;
i, c: integer;
begin
a := ['Б'..'Ф', 'Ё'];
writeln('Введите строку: ');
readln(s);
for i := 1 to Length(s) do
if s[i] in a then c := c + 1;
writeln('Ответ. ', c);
end.
Другие вопросы из категории
ровно половину файла, скорость увеличилась в три раза. Какое время ему понадобится, чтобы скачать весь файл. Ответ записать в часах, округлив по математическим правилам доц елых чисел.( указать только число)
А) обеспечивают непосредственное решение пользовательских задач;
Б) позволяют создавать новые программы на языках программирования;
В) обеспечивают работу всех аппаратных устройств компьютера и доступ пользователя к ним;
Г) обеспечивают защиту от компьютерных вирусов.
первом случае затрачивается |x2-x1|, а во втором 3*|x2-x1| единиц энергии, где х1 и х2-высоты платформ, с которой и на которую совершается прыжок.Какое минимальное количество энергии герой потратит, что перебраться на конечную платформу начав с первой.
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.