Информатика | 5 - 9 классы
С клавиатуры вводятся 17 чисел.
Найти произведение положительных чисел не делящихся на 17.
Решить в паскале, методом repeat.
Until.
Программа в Паскале нужна, пожалуйста?
Программа в Паскале нужна, пожалуйста!
Даю 60 баллов!
С клавиатуры вводится последовательность из N чисел, положительных и отрицательных.
Какая сумма чисел по модулю больше, положительных или отрицательных?
Найти количество положительных чисел среди введенных с клавиатуры четырёх чисел в паскале?
Найти количество положительных чисел среди введенных с клавиатуры четырёх чисел в паскале!
С клавиатуры последовательно вводится 10 чисел?
С клавиатуры последовательно вводится 10 чисел.
Найти количество положительных чисел.
Срочноо!
Решите пожалуйста на Паскале.
Найти сумму положительных чисел из 10, введённых с клавиатуры?
Найти сумму положительных чисел из 10, введённых с клавиатуры.
Программа Паскаль.
С клавиатуры вводится несколько чисел?
С клавиатуры вводится несколько чисел.
Найти сумму чисел кратных 5 и кол - во положительных.
С клавиатуры вводятся числа пока их сумма меньше 300?
С клавиатуры вводятся числа пока их сумма меньше 300.
Найти произведение отрицательных чисел делящихся на 3.
C клавиатуры вводятся 30 чисел?
C клавиатуры вводятся 30 чисел.
Найти произведение положительных чисел.
Найти сумму семи нечетных чисел натурального ряда, начиная с N> ; 0?
Найти сумму семи нечетных чисел натурального ряда, начиная с N> ; 0.
N вводится с клавиатуры.
Сделать нужно по 3 циклам в паскале (repeat until, for to do, while do).
Найти минимальное из чисел, введенных с клавиатуры?
Найти минимальное из чисел, введенных с клавиатуры.
Признак конца ввода число 0.
Чисел неограниченное кол - во.
Решать через repeat.
С клавиатуры вводится l целых чисел?
С клавиатуры вводится l целых чисел.
Подсчитать кол - во нечетных чисел и произведение положительных.
На странице вопроса С клавиатуры вводятся 17 чисел? из категории Информатика вы найдете ответ для уровня учащихся 5 - 9 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
Не забудь сделать лучшим ; )
Uses crt ;
Var i, pr : integer ;
a : array[1.
17] of integer ;
Begin
pr : = 1 ;
i : = 1 ;
writeln('Введите 17 чисел') ;
Repeat
readln(a[i]) ;
inc(i) ; Until i> ; 17 ;
i : = 1 ;
repeat
if (a[i]> ; 0) and (a[i] mod 17< ; > ; 0) then
pr : = pr * a[i] ;
inc(i)
Until i> ; 17 ;
writeln('Произведение = ', pr) ;
readln ;
end.