Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) reshit' po Paskalu

1

Ответы и объяснения

2013-02-18T17:05:19+04:00

var
a,b,c:real;
begin
readln(a,b,c);
if (a>1) and (a<3) then writeln(a);
if (b>1) and (b<3) then writeln(b);
if (c>1) and (c<3) then writeln(c);
end.