Даны натуральные числа x,y,z, определяющие возраст трех друзей.Из данных чисел напечатать...

Question

Даны натуральные числа x,y,z, определяющие возраст трех друзей.Из данных чисел напечатать те, которые обозначают ''школьный'' возраст, то есть от 7 до 16 лет.
(На языке Паскаль)

Comments

да

---

поч?

---

Ща напишу.

Answer 1

Var x,y,z:integer; 
begin 
readln(x,y,z); 
if x in [7..16] then write(x:4); 
if y in [7..16] then write(y:4); 
if z in [7..16] then write(z:4); 
writeln; readln 
end.

Answer 2

Uses crt;
var x,y,z,i: integer;
begin
 clrscr;
readln (x,y,z);
case x of 7..16:
writeln (x);
end;
case y of 7..16:
writeln (y);
end;
case z of 7..16:
writeln (z);
end;
readln ();
end.