Переменная s примет значение 70, но вот вопрос, откуда взялась переменная (a). Вообще выйдет ошибка, так как такая переменная не объявлена
1. Диск
2. Ухо
3. Дом
4. Лупа
5. Ель
6. ...
7. Телефон
8. ....
9. ...
Все слово: Компьютер
program fpro;
var
a : array[0..15] of integer;
i : integer;
begin
randomize;
for i :=0 to 15 do
begin
a[i] := random(1,20);
if (a[i] > 5) and (a[i] < 15) then writeln(a[i]);
end;
end.
<span>var k,r,h:integer;
begin
writeln('1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра');
write('k = ');
readln(k);
case k of
1,2: begin write('R = '); readln(r); end;
3: begin write('R, h: '); readln(r,h); end;
end;
case k of
1: writeln('C = ',2*pi*r:5:3);
2: writeln('S = ',pi*r*r:5:3);
3: writeln('V = ',pi*r*r*h);
else writeln('Ошибка ввода');
end;
end<span>.
Пример:
</span><span>1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра
k = 2
R = 5
S = 78.540</span></span>
Токо на 2
<span>Дано: N(ч) = 8; N(б) = 24. </span>
<span>Найти: i(ч) = ? </span>
<span>Решение: </span>
<span>1)N = 8 + 24 = 32 — всего шаров. </span>
<span>2)р (ч) = 8/32 =1/4 — вероятность доставания черного шара. </span>
<span>3) i(ч) = log2 ( 1/(1/4)) = 2 бита. </span>
<span>Ответ: 2 бита.</span>