Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Написано на 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.