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

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

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

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.