Паскаль. Даны три вещественных числа. Вывести на экран те их них, которые принадлежат интервалу (1,6 - 3,8).

Question

Информатика

Алевтин

28 июня, 03:53

Паскаль. Даны три вещественных числа. Вывести на экран те их них, которые принадлежат интервалу (1,6 - 3,8).

+3

Ответы (1)

Знаете ответ на вопрос?

Мироша · Answer 1

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