Вопрос pascalкакое значение s будет в конце ? var s, k: integer; begin s : = 10; for k : = 3 to 0 do s : = s * 3; write(s); end.

Если строка   for k: =3 to 0 do записана верно   то s=10(начальные данные)  так цикл в этом случае открываться не будет 

// pascalabc.net 3.2, сборка 1485 от 15.06.2017 // внимание! если программа не работает, обновите версию! begin   var x: =3.0;   var y: real;   while x< =7.51 do begin       if x< =4 then y: =sin(2*x+1)       else if x< =6 then y: =x*x-sqrt(x)       else y: =3*ln(x);       writeln(x: 4: 2,y: 15: 8);       x+=0.25       end end. результат 3.00        0.65698660 3.25        0.93799998 3.50        0.98935825 3.75        0.79848711 4.00        0.41211849 4.25      16.00094719 4.50      18.12867966 4.75      20.38305053 5.00      22.76393202 5.25      25.27121215 5.50      27.90479212 5.75      30.66458424 6.00      33.55051026 6.25        5.49774439 6.50        5.61540653 6.75        5.72862751 7.00        5.83773045 7.25        5.94300441 7.50        6.04470906

Var       d: integer;       n : = 0;       s : = 0; begin       repeat               readln(d);               if (d > 0) and (d mod 8 = 0) then begin                       s : = s + d;                       n : = n + 1;               end       until d = 0;       writeln('avg = ',s / n) end.