Даны натуральные числа x,y,z, определяющие возраст трех друзей.Из данных чисел напечатать те, которые обозначают ''школьный'' возраст, то есть от 7 до 16 лет.(На языке Паскаль)
Даны натуральные числа x,y,z, определяющие возраст трех друзей.Из данных чисел напечатать те, которые обозначают ''школьный'' возраст, то есть от 7 до 16 лет.
(На языке Паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы