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

(На языке Паскаль)

Question

Информатика

Танюха

19 февраля, 01:29

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

(На языке Паскаль)

+1

Ответы (2)

Знаете ответ на вопрос?

Юня · Answer 1

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.

Дора · Answer 2

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.