Напишите программу которая вводит последовательность целых чисел заканчивающихся нулём и определяет сколько из этих чисел удовлетворяет условию:сумма значений цифр десятичной записи числа равно 10
Нам нужно написать программу,которая вводит последовательность целых чисел заканчивающихся нулем и определяет сколько из этих чисел удовлетворяет условию:сумма значений цифр десятичной записи равно 10. Пишем программу: Pascal. program qq; var a,b,s,n:integer; begin repeat readln(a); b:=a; s:=0; while b>0 do begin s:=s+b mod 10; b:=b div 10; end; if s=10 then inc(n); until a=0; writeln(n); end. Программа написана.
- Связаться с нами
- Правила проекта
- Лицензионное соглашение
- Политика конфиденциальности
Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 3
Рабочая тетрадь по Информатике 9 класс Босова
Задание 197. Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 3. Программа получает на вход целые числа. Количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. Программа должна вывести одно число: количество четных чисел, кратных 3.
Program Zadacha197;
uses crt;
var i, k, a:integer;
BEGIN
writeln(‘Введите а’);
readln(a);
i := 0;
k := 1;
while (a<>0) and (k 0) and (k of your page —>
- Правообладателям
- Карта сайта
Вводится последовательность целых чисел, оканчивающихся 0
Вводится последовательность целых чисел, оканчивающихся 0 ( само число 0 в последовательности не входит, а служит признаком её окончания). Требуется решить 2 способами, задать последовательность через цикл или через список:
1) найти наибольшее трёхзначное значение последовательности;
2)найти, сколько элементов последовательности больше предыдущего.
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:
Вводится последовательность ненулевых целых чисел
Прошу срочно помочьна питоне Вводится последовательность ненулевых целых чисел, 0 – конец.
Вводится последовательность целых чисел, 0 – конец последовательности
Вводится последовательность целых чисел, 0 – конец последовательности. Вычислить количество.
Вводится последовательность из N целых чисел. Определить наибольшее число среди кратных 11
Вводится последовательность из N целых чисел. Определить наибольшее число среди кратных 11. Все.
Вводится последовательность из N целых положительных элементов
Вводится последовательность из N целых положительных элементов. Для простых элементов.
Регистрация: 29.04.2021
Сообщений: 2
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
# с использованием цикла Mx = 0 a = int(input()) h_a = a kol = 0 while a != 0: kol += 1 if a > h_a else 0 h_a = a if Mx a: Mx = a a = int(input()) print(Mx) print(kol) # с использованием списка lst = [] kol = 0 while True: b = int(input()) kol += 1 if len(lst) != 0 and b > lst[-1] else 0 if b == 0: break else: lst.append(b) print(max(lst)) print(kol)
Последовательность целых чисел, оканчивающаяся нулем [закрыт]
Учебные задания допустимы в качестве вопросов только при условии, что вы пытались решить их самостоятельно перед тем, как задать вопрос. Пожалуйста, отредактируйте вопрос и укажите, что именно вызвало у вас трудности при решении задачи. Например, приведите код, который вы написали, пытаясь решить задачу
Закрыт 2 года назад .
- Дана непустая последовательность целых чисел, оканчивающаяся нулем.
- сумму всех чисел последовательности;
- количество всех чисел последовательности.
Решить задачу используя циклическую конструкцию for.
- Дано целое число N (> 1).
- наибольшее целое число K, при котором выполняется неравенство 2^K > N.
Решить задачу используя циклическую конструкцию while.