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

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.

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.

Ну вот смотри часть программы var и begin сам допишешь: var massiv: array[1..10] of integer; //стаж massiv1: array[1..10] of integer; //семейное положение x: integer; for i: =1 to 10 do begin    //10 человек massiv[i]: =random(10); //ну стаж любой до 10; massiv1[i]: =random(2); //если 0 значит холост если 1 - женат if massiv1[i]=0 then x: =i; end; for i: =1 to 10 do begin   if (massiv1[i]=0) and (massiv[i]< massiv[x]) then x: =i; writeln('холостой работник с наименьшем стажем под номером ',x) end;

Для решения этой будут необходимы весы с двумя чашами. раскладываем 9 монет на 3 стопки по 3 монеты и начинаем взвешивание. алгоритм определения фальшивой монеты состоит из 2 шагов: 1. взвешиваем любые 2 стопки по 3 монеты. если весы в равновесии - то фальшивая монета в оставшейся стопке, если какая-то чаша перевешивает, значит фальшивая монета в той стопке, которая легче. 2. из стопки из 3 монет, в той которая находится фальшивая, берем любые 2 и взвешиваем. если весы в равновесии - фальшивая та, которая осталась, если одна из чаш перевешивает, значит фальшивая та, которая легче.