Определить число единиц во введенном числе?

Информатика | 10 - 11 классы

Определить число единиц во введенном числе.

Паскаль АБС.

Ответить на вопрос

Для ответа на вопрос необходимо пройти авторизацию или регистрацию.

Ответы (1)

Ibraqimsaidov2 4 нояб. 2020 г., 23:54:33

Var s : string ; i, k : integer ;

begin Write('Введите произвольное число : ') ; Readln(s) ; k : = 0 ; for i : = 1 to length(s) do if s[i] = '1' then k : = k + 1 ; Writeln('Количество единиц в числе равно ', k) ;

end.

Тестовое решение :

Введите произвольное число : - 156153451.

4234111322

Количество единиц в числе равно 6.

Live96 12 февр. 2020 г., 23:57:43 | 10 - 11 классы

Напишите программу, которая считает сумму цифр введенного числа(паскаль)?

Напишите программу, которая считает сумму цифр введенного числа(паскаль).

Dracond 6 апр. 2020 г., 00:56:28 | 10 - 11 классы

Определить сумму цифр введенного числа a (a< ; 1000) в паскале, через for?

Определить сумму цифр введенного числа a (a< ; 1000) в паскале, через for.

5254 16 авг. 2020 г., 08:32:45 | 1 - 4 классы

Написать программу, которая число считанное с клавиатуры, увеличивает в два раза?

Написать программу, которая число считанное с клавиатуры, увеличивает в два раза.

Паскаль абс.

Mariaelenakam 6 мар. 2020 г., 07:14:20 | 5 - 9 классы

Напишите программу в паскале на определение максимального числа из двух введенных?

Напишите программу в паскале на определение максимального числа из двух введенных.

Harper2307 3 мая 2020 г., 15:21:01 | 5 - 9 классы

Напишите программу которая считает количество четных цифр введенного числа в паскале?

Напишите программу которая считает количество четных цифр введенного числа в паскале.

GigaSetUser 15 апр. 2020 г., 02:23:06 | 5 - 9 классы

Определить, является ли введенное число цифрой?

Lizik2506 18 июл. 2020 г., 06:16:16 | 10 - 11 классы

Программирование на паскале : Определить знак числа x произвольно введенного с клавиатуры (x< ; > ; )?

Программирование на паскале : Определить знак числа x произвольно введенного с клавиатуры (x< ; > ; ).

Andrewcallcraft 14 окт. 2020 г., 08:22:42 | 5 - 9 классы

Помогите написать программу на паскале?

Помогите написать программу на паскале.

Надо чтобы введенное число оканчивалось на 7.

Викатарина 30 янв. 2020 г., 10:28:39 | 10 - 11 классы

Составить программу, печатающую все простые числа, не превосходящие данного числа?

Составить программу, печатающую все простые числа, не превосходящие данного числа.

Паскаль абс.

НастёнаNastua 16 дек. 2020 г., 07:43:07 | 10 - 11 классы

Определить минимум из 3 введенных чисел?

Определить минимум из 3 введенных чисел.

Если минимум отрицательное число, то найти сумму трех чисел, а иначе найти их произведение

В паскале.

На этой странице находится вопрос Определить число единиц во введенном числе?, относящийся к категории Информатика. По уровню сложности данный вопрос соответствует знаниям учащихся 10 - 11 классов. Здесь вы найдете правильный ответ, сможете обсудить и сверить свой вариант ответа с мнениями пользователями сайта. С помощью автоматического поиска на этой же странице можно найти похожие вопросы и ответы на них в категории Информатика. Если ответы вызывают сомнение, сформулируйте вопрос иначе. Для этого нажмите кнопку вверху.

Последние ответы

Fortunabee 17 мая 2024 г., 01:39:45

Ответ : Г В Б А Объяснение : 329. 161. 15. 50 (Точно не знаю)...

Петя записал IP - адрес школьного сервера на листке бумаги и положил его в карман куртки?

1981ва 16 мая 2024 г., 23:06:29

Найдем количество символов в статье : 50 * 40 * 70 = 140000 Информационный объём статьи составляет : 280000 байт = &nbsp ; 280000&nbsp ; * 8 = 2240000 бит На один символ&nbsp ; приходится : 2240000 / 140000 = 16 бит...

Помогите очень срочноопределить разрядность использование мой кодировки файлов который состоит из 50

Dolgopups 16 мая 2024 г., 18:48:34

Ответ : На каждый символ выделяется 6 бит Всего символов - 100 6 * 100 = 600 бит или 75 байт...

Текст составляет с пользование с использованием алфавита мощностью 16 символов и содержит 250 символ

Ridusik 16 мая 2024 г., 17:58:48

•1 А) •2 D) •3 А) Надеюсь я помогла вам...

1. Компьютерная анимация – это (1б)A) оживление, одушевление графических файловB) тестирование и отл

DmitryD7 16 мая 2024 г., 14:29:21

Г) 30. . ...

В ЭТ в ячейке A1 записано число 10,в B1 – формула = A1 / 2,в C1 – формула = СУММ(A1 : B1) * 2?

Катерина1421 16 мая 2024 г., 14:03:42

Var &nbsp ; s, a, n, i : integer ; &nbsp ; begin &nbsp ; s : = 0 ; &nbsp ; read(a, n) ; &nbsp ; for i : = 1 to n do &nbsp ; begin &nbsp ; &nbsp ; s : = s + a * i ; &nbsp ; end ; &nbsp ; &nbsp ; print(s) ; / / если надо end...

Плиз помогите, это паскаль?

Bombanur 16 мая 2024 г., 07:36:04

Ответ : import random a = [random. Randint( - 100, 100) for _ in range(10)] print('a = ', a) b = [i for i in a if i%2 - 1] print('b = ', b) Объяснение :..

Створити масив з 10 елементів?

Geijr12dfvs 16 мая 2024 г., 06:35:50

Ответ : перезапусти &nbsp ; комп Объяснение :..

Помогите пожалуйста, скинул до заводских настроек и пишет вот это, и мышки нет на экране и клавиатур

Elnur00kz 16 мая 2024 г., 06:17:42

/ / Pascal var &nbsp ; y, c, d, sum, neg : real ; begin &nbsp ; d : = 2 ; &nbsp ; c : = - 5 ; &nbsp ; while c &lt ; = 6 do &nbsp ; begin &nbsp ; &nbsp ; &nbsp ; y : = c - d ; &nbsp ; &nbsp ; &nbsp ; if y &lt ; 0 then &nbsp ; &nbsp ; &nbsp ; &nbsp ; &..

Найти результат вычисления арифметического выражения : Y = (c - d), где d = 2 c ∈ [ - 5 ; 6] с шагом

Яяяяя01 16 мая 2024 г., 01:50:41

1) function MaxArr(a : array of integer) : integer ; var i, l, ma : integer ; begin l : = high(a) ; ma : = a[0] ; for i : = 1 to l do if a[i]&gt ; ma then ma : = a[i] ; MaxArr : = ma ; end ; var a : array of array of integer ; i, j, l : integer ; beg..

Помогите пожалуйста людииимим надо срочно?