Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
віка812
21.05.2023 04:53 •
Информатика
Подсчитать количество цифр в строке. решить как минимум 2-мя
Показать ответ
Ответ:
ОльгаГалюткина
08.07.2020 01:58
Var
s: string;
n: byte;
begin
readln(s);
foreach i: char in s do
if (Char.IsDigit(i)) then
n += 1;
writeln(n);
end.
var
s: string;
n: byte;
begin
readln(s);
for i: byte := 1 to length(s) do
if (s[i] in ['0'..'9']) then
n += 1;
writeln(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Dantebayo
29.06.2022 20:54
Что будет, масштабирование или контур?( или другой вариант ответа, если неправильно) Люди добрые . Фигню не писать, жалобу кину....
sshurik49
09.09.2022 03:08
Кто шарит п информатике? ...
динка84
04.03.2022 05:11
Какие папки с «говорящими» именами вы нашли в папке C:\Windows?...
ok683000
15.07.2022 11:26
ответьте на вопосы по информатике Состав Интернет. Основные службы и сервисы 1. Что лежит в основе маршрутизации и транспортировки данных?2. Что такое IP-адрес?3....
Nikoletta2550
08.03.2020 11:08
Напишете программу выводящую слово Банан по букве в каждую строку....
Mahb
14.02.2021 20:42
20 к на пол, если площадь Опоры сос. Дляет 0,04 м. 3. На рисунке изображен один и тот же сосуд с поршнем. Цифрами 1, 2 и 3 обозначены круглые отверстия, затянутые...
9uh9ev2
02.02.2020 02:14
Используя формулу ПОПС ответьте на вопрос какова роль Ак Орды в становление Казахского ханства???...
kama1ezeGggggg
09.01.2022 14:19
Подготовка к сор. ответьте на вопросы по графику: S, KM.806040I20о12.0013.0014.0015.0016.00t, ч1) С какой скоростью двигался велосипедист?2) Какое расстояние он...
aiphone20032
21.01.2023 04:56
Определите тип переменной х после выполнения следующих действий. b=4**2x=5.2+bintstrfloatboolвыберите варианты ответов, в которых переменная x принимает целочисленный...
radmirnemyshov
05.04.2021 23:34
Сочинение на тему: «Человек и государство в Русской Литературе»...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s: string;
n: byte;
begin
readln(s);
foreach i: char in s do
if (Char.IsDigit(i)) then
n += 1;
writeln(n);
end.
var
s: string;
n: byte;
begin
readln(s);
for i: byte := 1 to length(s) do
if (s[i] in ['0'..'9']) then
n += 1;
writeln(n);
end.