8. Сколько строк напечатает программа: var k,l:integer; begin FOR k:=8 DOWNTO 1 DO FOR :=10 ТО 14 DO writeln('Мне нравится Паскаль.'); end. а. 8 b. 10 с. 14 d. Верного ответа нет, ответ 9. Что выведется на экран в результате выполнения фраг- мента программы: S:=0; FOR j:=10 TO 15 DO begin s:=s+2*j; write(j=', ј:2, 's=',s:4) end; как решить

во всех этих задачах используются 2 формулы  (объем)I=k*i; (мощность)N=2^i

1) 8=2^i => i=3, объём= 3*20=60 бит

2)вес одного символа 4096/1024=4 бит => i=4, мощность (N) = 2^i => N=2^4=16

3)12288/8=1536 байт, далее 1536/1024=1,5 Кбайт

4)для начала переведем объем кбайт и биты. (из предыдущей задачи это 12288 бит); после найдем i i=12288/4096=3. далее мощность (N)=2^3=8

5)один символ занимает 4 бита (2^4=16) 1/64 часть мегабайта = 1024 * 1024 * 8 / 64 = 131072 бита значит 131072 / 4= 32768 символов.

6)находим количество(k) 4*30*50=6000, кол-во информации (объем (I) ) из байт переводим в бит. 4500*8=36000 бит. далее находим i; i=I(объем)/k(кол-во); i=36000/6000=6. N=2^6=64.

7)может не 1,5*1023, а 1,5*10^23? N=4; i=2. находим объём 2*1,5*10^23. I=3*10^23.

8)всего двухзначных чисел 100. (00, 01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 11, 12 и тд. ) значит 2^i=100. близжайшее значение i в данном случае 7. Так как если 6, то 2^6=64, 100-64=36. если i=7, то 2^7=128. 100-128=-28 (ну по факту разница в 28 единиц.) что ближе 36 или 28? следовательно ответ 7.

1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.