Cnt2_3 Ввести 6 чисел, подсчитать количество чисел принадлежащих интервалу (10 ; 12,3].
5-9 класс
|
Elenazharenova
15 марта 2015 г., 16:52:57 (9 лет назад)
Daryatroshechk
15 марта 2015 г., 18:05:28 (9 лет назад)
var
s,i:integer;
x:real;
begin
for i:=1 to 6 do
begin
readln(x);
if (x>10) and (x<=12.3) then s:=s+1;
end;
writeln('Ответ: ',s);
end.
Ответить
Другие вопросы из категории
Два текста содержат одинаковое количество символов. Первый составлен в алфавите мощностью 256 символов, второй – мощностью 32 символа. Во сколько раз
информационный объем первого текста больше, чем второго?
№1. Составить программу нахождения длины окружности и площади круга по указанному радиусу R. №2. Дано трехзначное число. Найти произведение цифр
числа.
№3. Меньшее из трех чисел увеличить в 3 раза.
Читайте также
1)В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3.
2)В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
Вы находитесь на странице вопроса "Cnt2_3 Ввести 6 чисел, подсчитать количество чисел принадлежащих интервалу (10 ; 12,3].", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.