1) Сколько раз выполнится цикл? a:=12;
нц для і от 3 до 11 шаг 2

a:=a+8;
кц
2) Определите значение переменной k после выполнения следующего по фрагмента программы
K:=5
Нц пока k<=8
K:=k+1
Кц
3) Какое значение будет присвоено переменной x после выполнения данного фрагмента:
y:=24 mod 9;
x:=9;
Если x>y
То x:=x+2;
Нц пока x>50
X:=x-3

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )

если предположить, что сначала уходили те, кто надел обувь большего размера, то таких будет, как минимум, двое. третий уходящий может надеть свою обувь. поэтому правильным ответом будет (б) 2 человека.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.