С ИНФОРМАТИКОЙ!! 1. Какой процесс называется циклическим? ( )

2. Что такое параметр цикла? Как он изменяется? Приведите пример использования параметра цикла ( ).

3. Приведите пример циклического вычислительного процесса с параметром ( ).

4. В чем разница между операторами цикла с предусловием (while) и постусловием (repeat…until)? ( )

5. Укажите, какое значение получит переменная s после выполнения указанных операторов ( ):

s:= 3; i:= 1; while i <6 do i:= i + 1; s:= s + i;
s:= 2; i:= 1; repeat s:= s + i; i:= i + 1 until i> 3;
s:= 0; for i:= 5 to 7 do s:= s + 1;
s:= 1; for i:= 10 downto 2 do s:= s + 1.

1) Дано:
k = 4096 сим.
I = 3.5 Кбайт
Найти N = ?
Решение:
N = 2^i
I = k*i
i = I/k
3.5 Кбайт = 3584 байт = 28672 бит
i = 28672 / 4096 = 7 бит
N = 2^7 = 128 символов

2)
Глубина цвета = 350 Кбайт / (1280 * 320 пикселей) = 350 * 8 * 1024 бит / 409600 пикселей = 2867200 бит / 409600 пикселей = 7.0 бит
Кол-во цветов = 2^7.0 бит = 128.0 цветов

3)
280 Гбайт = 280 * 1024 * 1024 * 1024 * 8 бит = 2405181685760 бит
700 Мбайт = 700 * 1024 * 1024 * 8 бит = 5872025600 бит
Кол-во = 2405181685760 / 5872025600 шт = 409.6 шт  ~= 410 шт (округляем в большую сторону так как кусками тут быть не может)

Через Case :
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Case k mod 10 of
1:WriteLn('В букете ',k,' цветок');
2..4:WriteLn('В букете ',k,' цветка');
0,5..9:WriteLn('В букете ',k,' цветков');
end
End.

Через if :

Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Begin
if k=1 then WriteLn('В букете ',k,' цветок');
if k mod 10 in[2..4] then WriteLn('В букете ',k,' цветка');
if (k mod 10 in[5..9])or(k=0) then WriteLn('В букете ',k,' цветков');
end
End.