Дана строка символов, состоящая только из цифр. Определить, сколько раз среди них встречается цифра 5.
10-11 класс
|
var s: string; i,k: integer;
Begin
k:=0;
Read(s);
for i:=1 to length(s) do
If s[i]='5' then k:=k+1;
Writeln (k);
End.
Другие вопросы из категории
лежит внутри заштрихованной области и false
При использовании CASE-технологии разработки программного продукта основные усилия программист затрачивает на:
(укажите, пожалуйста, несколько вариантов ответа)
1. Кодирование
2. Анализ
3. Проектирование
4. Отладка
5. Тестирование
Program Frankenstein;
var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=r
then writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');
End.
Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?
Читайте также
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
Сколько раз среди данных символов встречаться цифра?
паскаль. подскажите
3) Количество четных цифр в нем.
желательно в Basic. но можно и паскаль