Определите значение переменной s типа real после выполнения следующих операторов. s: =0; i: =1; repeat s: =s+1/i; i: =i-1 until i< =1;

10. дано: а=3(так как сс троичная) n> =18 найти: i? решение: n=a^i; так как 3 состояния, то а=3 n=3^i; i подбираем по принципу. n больше или равно 18 значит i=3 n=3^3; ответ: 3 лампочки 2. дано а=2, i=5 найти n решение с пяти символ ов можно записать последовательность n=a^i. n=2^5=32 ответ 32 3. дано n=10+12+12=34 символа n=2^i; 2^5< 34< 2^6; 5 бит не хватает, следовательно берем 6. i=6 бит тогда для хранения всех 11 символов пароля нужно 11*6=66 бит. поскольку парлль должен  знаимать целое число байт, берем ближайщее значение кратное 8 ! 1байт=8бит. 72=9*8. один пароль занимает 9 байт. тогда 60 паролей занимают 60*9=540 байт ответ 540 байт!

Вот так решается без массивов: program score; var a,b,c,d,sc: integer;     res: integer; begin   write('input 1st exam score: ');   readln(a);   write('input 2nd exam score: ');   readln(b);   write('input 3rd exam score: ');   readln(c);   write('input 4th exam score: ');   readln(d);       write('input pass score: ');   readln(sc);   if (a+b+c+d) < sc then writeln ('not passed') else writeln('passed'); end.