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

2
Комментарий удален
поч?
Комментарий удален
Ща напишу.
Комментарий удален

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

2013-12-14T12:17:01+00:00
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.
2013-12-14T12:21:58+00:00
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.