1) определите значение переменной p после выполнения следующего фрагмента программы: p: =1; i: =3; while i < = 9 do begin p : = p * (i div 3); i : = i + 1; end; 2) s: =0; i: =7; while i > 1 do begin s : = s + i div 2; i : = i - 1; end; 3) s: =1; i: =1; while i < 5 do begin s : = s + i*(i+1); i : = i + 1; end; 4) a : = -5; b : = 14; b : = b + a*2; if a > b then c : = a + b else c : = b – a; 5) х : = 11; у : = 5; t : = y; у : = х mod у; x : = t; у : = у + 2*t;

Впервой после выполнения программы переменная p будет равна 24. во второй переменная s будет равна 12. в третьей переменная s будет равна 41. в четвёртой переменная c будет равна 9. в пятой переменные x и t  будут равны 5, а  переменная  y = 11.

Const   nm = 50; type   data = record       day: 1..31;       month: 1..12;       year: integer   end;   lichn = record       famnam: string;       datr: data   end;   listlichn = array [1..nm] of lichn; var   m: listlichn;   n: integer; procedure getlichn(k: integer); begin   write(k, ') введите через пробел фамилию, имя: ');   readln(m[k].famnam);   writeln('введите через пробел день, месяц и год рождения: ');   readln(m[k].datr.day, m[k].datr.month, m[k].datr.year) end; procedure writelichn(k: integer); begin   writeln(m[k].famnam, ' ', m[k].datr.day, '.', m[k].datr.month, '.', m[k].datr.year) end; procedure vvod(var p: integer); var   i: integer; begin   write('введите количество лиц n (максимум 50) -> ');   readln(p);   if p < = 50 then for i : = 1 to p do getlichn(i)   else begin writeln('вы ввели неправильное значение'); p : = 0 end end; procedure zapros1;   { фамилии и имена тех кто родился в месяц l года } var   i: integer;   l: 1..12; begin   write('введите номер месяца рождения (1-12): ');   readln(l);   for i : = 1 to n do       if m[i].datr.month = l then writelichn(i) end; procedure zapros2;   { фамилии и имена тех кто родился в год a } var   a, i: integer; begin   write('введите год рождения: ');   readln(a);   for i : = 1 to n do       if m[i].datr.year = a then writelichn(i) end; procedure zapros3;   { фамилии и имена тех чья дата рождения z.l.a } var   a, i: integer;   z: 1..31;   l: 1..12; begin   write('введите через пробел день, месяц и год рождения: ');   readln(z, l, a);   for i : = 1 to n do       if (m[i].datr.year = a) and (m[i].datr.month = l)           and (m[i].datr.day = z) then           writelichn(i) end; begin   vvod(n);   zapros1;   zapros2;   zapros3 end. тестовое решение: введите количество лиц n (максимум 50) -> 3 1) введите через пробел фамилию, имя: иванов иван введите через пробел день, месяц и год рождения: 24 12 1973 2) введите через пробел фамилию, имя: петров петр введите через пробел день, месяц и год рождения: 05 03 1982 3) введите через пробел фамилию, имя: козлова екатерина введите через пробел день, месяц и год рождения: 1 12 1994 введите номер месяца рождения (1-12): 12 иванов иван 24.12.1973 козлова екатерина 1.12.1994 введите год рождения: 1982 петров петр 5.3.1982 введите через пробел день, месяц и год рождения: 5 3 1982 петров петр 5.3.1982