Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
bayawb65
11.02.2022 01:46 •
Информатика
Подсчитать количество цифр в строке. решить как минимум 2-мя
Показать ответ
Ответ:
Всезнаюшка15
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 оценок)
Популярные вопросы: Информатика
VladiusFirst
10.07.2022 05:27
1.мера излучения светящейся поверхности, 7 букв 2. набор ячеек расположенных в таблице по вертикали, 7 букв подскажите!...
ALIONA2020
10.07.2022 05:27
Вкаждой строке найдите лишнее слово . приставка, предлог, суффикс, окончание, корень; треугольник, отрезок, длина, квадрат, круг; дождь, снег, осадки, иней, град;...
elaushkop0busc
09.11.2022 02:40
Нужна с ограничением. ответ 42...
keshatroy86e7
24.06.2022 09:42
Нужна таблица в эксель с формулами. емкость моего жесткого диска 239 530 405 888 байт прислать либо таблицу в эксель, либо написать 4 формулы. 20 ....
DontRobot
18.08.2022 07:40
Программа қандай шаблондардан тұрады...
ԺⱭNÍYⱭ
01.07.2020 09:31
Информация – это… a) Сообщение, содержащее элемент новизны для приемника (потребителя); b) Сообщение, не имеющее никаких новых данных для приемника (потребителя);...
lera192837465
16.07.2022 10:59
Почему Англия выступила основным противником России в решении восточного вопроса?...
ilya201296
16.07.2022 10:59
Какую роль в ходе войны сыграло Бородинское сражение, состоявшееся 26 августа 1812 г.?...
sem212
16.07.2022 10:59
Какое влияние на ход военных действий оказало образование государства у горцев?...
RUSsamir
16.07.2022 10:59
Раскройте содержание понятия «восточный вопрос». Дайте оценку действиям России по решению восточного вопроса...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.