Даны 3 действующих числа выберете из них те которые принадлежат отрезку от 0 до 10 ??

Question

Даны 3 действующих числа выберете из них те которые принадлежат отрезку от 0 до 10 ??

Answer 1

Var a,b,c:integer;
begin
writeln('vvedite tri cisla=');
readln(a,b,c);
if (a>0) and (a<10) then<br> write(' ',a);
if (b>0) and (b<10) then write(' ',b);<br>if (c>0) and (c<10) then write(' ',c);<br>end.
Успехов :)