сервис вопросов и ответов1. Пользователь вводит целые числа, заканчивая ввод числом 0. Определить количество и произведение тех из них, которые больше 0 и меньше 10.
5-9 класс|
|
2. С клавиатуры вводятся 10 двузначных натуральных чисел. Определить, сколько среди них чисел, у которых сумма цифр - число четное.
3. ЖЕЛАТЕЛЬНО, НО НЕ ОБЯЗАТЕЛЬНО
Пользователь вводит с клавиатуры целые положительные числа (количество не ограничено).Ввод должен остановиться, как только сумма введенных чисел станет больше 100. Вывести сумму чисел и количество введенных чисел.
Vohmyakova
07 июня 2015 г., 20:45:13 (8 лет назад)
Sissa13
07 июня 2015 г., 22:23:18 (8 лет назад)
1.
Var a,b,pr:integer;
Begin
pr:=1;
write('Вводите числа, когда закончите - введите 0. '); readln(a);
while (a<>0) do begin
if (a>0) and (a<10) then begin b:=b+1; pr:=pr*a; end; readln(a) end;
Writeln('Чисел, больше 0 и меньше 10: ',b,' их произведение:',pr);end.
2.
Var a,b,c,i,sum,f:integer;
Begin
Write('Введите 10 двузначных чисел: '); repeat readln(a); until(a>=10) and (a<100);
for i:=1 to 10 do
begin
repeat
Ответить
Другие вопросы из категории
поможете?мне с таблицей пожалуйста
поможете?мне с таблицей пожалуйста , 50 баллов даю, токо помогитее
Студенты педагогического института организовали эстрадный квартет.
Михаил в нем играет на саксофоне. Пианист учится на географическом
факультете. Ударника зовут не Валерием, а студента географического
факультета не Леонидом. Михаил учится не на историческом факультете.
Андрей не пианист и не биолог. Валерий учится не на физическом
факультете, а ударник — не на историческом. Леонид играет не на
контрабасе. Кто где учится, и на каком инструменте играет?
Читайте также
1)Определить если в
составе двухзначного
числа одинаковые цифры.
2)Вводятся 2 числа одного
ли они знака?
3)Вводиться двухзначное
число, посчитать
произведение чисел.
4)Принадлежит ли х
отрезку 1.5?
5)является ли ввод с
порядковым номером у
высокосным или нет
6)Вводиться 4 числа,
посчитать сумму
произведений
отрицательных чисел.
7)Вводиться 5 чисел найти
сумму чисел меньше 3, и
произведение чисел
больше 5.
8)Вводиться число
определить его знак.
9)Вводиться 6 чисел найти
сумму произведений тех
из них которые больше 10.
1)Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел
от A до B включительно.
2)Даны натуральные числа от A до B(A<B). Найти произведение тех из них, которые делятся на 3 и не делятся на 4.
3)Ангелина узнав, что Боря занимается спортом, решила не отставать. Она каждый день делала от 3 до 5 упражнений на икры (вводится во время выполнения программы) и 5 упражнений на пресс. Сколько упражнений она сделала за 5, 10 и 13 дней. (количество упражнений на икры на каждый день вводится отдельно)
С клавиатуры вводятся 100 чисел. Найти сумму тех из них, которые больше 10.
На языке Паскаль. Очень нужно!
Помогите))С клавиатуры вводится целое 4-х значное число.
Выдать сообщение о том, есть ли в этом числе четные цифры и указать их
количество.
НА ПАСКАЛЕ
1 задача.Вычислить произведение квадратов n первых натуральных чисел.Для любого n введенного с клвитуры.2 Найти первое чётное натуральное числоЮ куб
которого больше числа x,введенного с клавитуры. 3.Даны вещественные числа b1,b2,...... b10.(ввести с клавитуры).Определите среднее арифметическое тех из них,которые кратны числу n, введенному с клавитуры.
Вы находитесь на странице вопроса "1. Пользователь вводит целые числа, заканчивая ввод числом 0. Определить количество и произведение тех из них, которые больше 0 и меньше 10.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.