Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DetasGames
20.07.2021 17:04 •
Информатика
Паскаль. за ! с клавиатуры вводится символьная строка. определите, сколько в ней цифр
Показать ответ
Ответ:
mazurok3
03.10.2020 12:53
Var s:string; k,i:integer;
begin
write('Введите строку:');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then k:=k+1;
writeln('k = ',k);
end.
Пример:
Введите строку:
13 апреля 2016 г .
k = 6
0,0
(0 оценок)
Ответ:
ENGPrO
03.10.2020 12:53
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Write(ReadlnString('>').Where(c->c in ['0'..'9']).Count)
end.
Тестовое решение:
> Зде3сь спр14ята1ны 5 ци926ф5ры чи35сла8979 "пи"
15
0,0
(0 оценок)
Популярные вопросы: Информатика
Нилллл
08.07.2020 02:48
Рассказ набранный на компьютере содержит несколько страниц. на каждой странице 16 строк по 64 символа в строке. информационный объем рассказа состовляет 10 кб. определите количество...
анастейша1410
05.09.2020 00:13
Представлен пример: a=float(input(O) b=float(inputO)) t=a+b print(t) Какое значение примет данный пример?152o25,4O helloоTrue...
tatata1337
14.05.2022 19:38
Составить алгоритм вычисления значений функции, заданной следующим образом:x, при x -1 Y=sin(x), при x -1...
Лиза22092004
05.07.2020 21:08
А) 21. Базовая аппаратнаяконфигурация?А) Сканер, принтерВ) Периферийные устройстваC) Системный блок, монитор,клавиатура, мышьD) программыE) Монитор, дискиB)C)...
Абзал111111
21.01.2023 02:01
Определите информационный объем фразы Делу - время, потехе - час! в кодировке Unicod, в которой каждый символ кодируется 16 битами....
Yulia221
18.03.2021 08:00
Багатократне повторення однотипних дій називається ?...
barbarask1
04.08.2022 05:04
От каких параметров рисунка зависит объем необходимой для его хранения видеопамяти?...
kabilet777
05.10.2022 12:23
На носителе информации свободной памяти 2мб сколько необходимо освободить мб памяти дополнительно что бы сохранить текст текст занимает 150 страниц, в каждой по 150 строк ,в...
mirapax1997ozb3lk
07.05.2023 09:25
Информационное сообщение объемом 4 кбайта состоит из 4096 символов. каков информационный вес символов используемого алфавита? сколько символов содержит алфавит с которого записано...
Олегнорм
07.05.2023 09:25
Ккакому миру принадлежит понятие к миру объектов реальной действительности или к миру мышления? и почему....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('Введите строку:');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then k:=k+1;
writeln('k = ',k);
end.
Пример:
Введите строку:
13 апреля 2016 г .
k = 6
begin
Write(ReadlnString('>').Where(c->c in ['0'..'9']).Count)
end.
Тестовое решение:
> Зде3сь спр14ята1ны 5 ци926ф5ры чи35сла8979 "пи"
15