Ввести три числа. Вывести на экран те из них, которые принадлежат интервалу (2,5-5,2).

Question

Информатика

Сюта

7 апреля, 18:35

Ввести три числа. Вывести на экран те из них, которые принадлежат интервалу (2,5-5,2).

+3

Ответы (1)

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

Альвина · Answer 1

Написано на Pascal

var a:real; i, k:integer;

begin

writeln ('Введите 3 числа') ;

for i:=1 to 3 do

begin

read (a) ;

if (a>=2.5) and (a<=5.2) then begin

writeln ('Число ', a,' входит в интервал') ;

k:=k+1;

end;

end;

if k=0 then writeln ('Таких чисел нет') ;

end.