Паскаль. Даны три вещественных числа. Вывести на экран те их них, которые принадлежат интервалу (1,6 -
10-11 класс
|
3,8).
var
a: array[1..3] of real;
i, n: integer;
begin
Write('Введите через пробел три любых числа: ');
Readln(a[1], a[2], a[3]);
for i := 1 to 3 do
if (a[i] >= 1.6) and (a[i] <= 3.8) then Writeln(a[i])
end.
Введите через пробел три любых числа: 13.43 2.41 -1.34
2.41
Другие вопросы из категории
четной. Если она четная,
то m возвести в квадрат, иначе n утроить.
7. Написать программу для нахождения числа отрицательных элементов в массиве из 10 знаковых чисел
8. Написать программу для замены всех четных элементов массива из 10 беззнаковых чисел единицами.
9. Написать программу для замены всех нулевых элементов массива из 10 знаковых чисел единицами
10. Написать программу для замены всех троек в массиве из 10 беззнаковых чисел пятерками.
22 байта
2.перевести в байты
А)15 Кбайт
Б)156Мбайт
3.перевести в килобайт
А)7168 байт
Б)6Мбайт
В)5Гбайт
Читайте также
Даны два символа (латинские буквы). Вывести их на экран в порядке возрастания по алфавиту.
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент