ввести несколько чисел. найти сумму чисел лежащих в интервале от 10 до 15
5-9 класс
|
var
tmp, sum : integer;
begin
sum := 0;
while not eoln do
begin
read (tmp);
if (tmp >= 10) and (tmp <= 15) then
sum := sum + tmp;
end;
writeln (sum);
end.
Другие вопросы из категории
а) Дано квадратное уравнение. Найти решения уравнения, оформив вычисление корней в процедуре с параметрами и без параметров.
б) Найти наименьшее из четырех чисел, оформив вычисление минимума из двух чисел процедурой.
программу нахождения длин медиан m1, m2 и m3 треугольника по указанным формулам. Длины сторон a,b и c задаются с клавиатуры.
m1=...
m2=...
m3=...
энергозависимой.
б) Её объём измеряется десятками и сотнями гигабайт.
в) Используется для долговременного хранения информации.
г) Её объём измеряется сотнями мегабайт или несколькими гигабайтами.
д) Более быстрый доступ.
е) Используется для временного хранения информации.
ж) Более медленный доступ.
2. Какой объём памяти в байтах будет занимать следующий двоичный код: 00001110111100001101100111011101 ? Поясните свой ответ.
3. Текст объёмом 1024 бита располагается в оперативной памяти, начиная с байта с номером 10. Каков будет адрес последнего байта, который занят данным текстом?
4. Перечислите не менее пяти известных вам устройств внешней памяти.
5. В чём отличие дисков CD-ROM, CD-RW и CD-R?
Читайте также
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
знак у каждого элемента массива. Распечатать. Посчитать количество отрицательных и положительных
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
конструкторе) Получить массив из n случайность лежащих в интервале от -50 до 100, определить каких чисел в нем больше четных положительных или нечетных отрицательных?