Ответы на вопрос:
//pascal abc.net var s: string; k: byte; begin read(s); for i: =1 to length s do case s[i] of '1','2','3','4','5','6','7','8','9','0': k+=1; end; writeln (k); end.
Популярно: Информатика
-
В соревнованиях по многоборью (из M видов спорта) участвуют N спортсменов...
mia01726.10.2020 15:21 -
Определите форматирования, использованные в таблице...
малая55505.11.2021 18:08 -
Какие компоненты должны включать технические средства?...
PotyLive10.04.2021 00:59 -
С ИНФОРМАТИКОЙ ЯЗЫК С++ 1) Дано n чисел. Узнайте, сколько из них являются...
lybovii18.11.2020 00:45 -
1. какое целое число предшествует 100 (q=16) 2. какое целое число предшествует...
Lubov08030102.04.2022 03:26 -
Принципи функціонування електроної пошти...
новичок53524.06.2022 11:57 -
1) 1) решите уравнение. ответ запишите в десятичной системе счисления....
llllllllllllll122.10.2021 00:20 -
Шахматная доска состоит из 8 строк и 8 столбцов. какое наименьшее количество...
evstropovi163205.07.2022 09:01 -
Какое из чисел С , записанных в двоичной системе счисления, отвечает условию...
TimaWarface20.08.2021 14:46 -
1. Составьте программу, вычисляющую произведение двух чисел. 2. Составьте...
sayfulloevo07.08.2022 06:20