С клавиатурыы вводится 15 чисел.(от 1)
5-9 класс
|
Найти ссумы всех чисел которые меньше 30
Pascal
const
n = 15;
var
i, summ, c:integer;
begin
summ := 0;
for i := 1 to n do
begin
write('Введите число ');
readln(c);
if c < 30 then
summ := summ + c;
end;
writeln('Сумма чисел < 30 = ', summ);
end.
Другие вопросы из категории
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
Читайте также
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
2) среди 15 чисел найдите количество всех чисел которые являются не отрицательными
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.