Program skorohodov20001;var a: integer ; Begin a:=0; writeln ('BBedite 4islo'); readln (a); if (a> 3) and (a < 11) then begin writeln('Prinodleshit') end else begin writeln('Ne prenodleshit') ; end; end.
Смотря с чего начинается с 0 или 1 массив , я просто решил написать пример программы , тут сам вводишь 10 чисел
var
i , k, n:integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do readln(a[i]);k:=a[1]*a[2]*a[3];
n:=a[10]*a[9]*a[8];
writeln('произведение первых трех чисел= ',k);
<span>writeln('произведение последних трёх чисел= ', n);</span>
end.
<span>Может ли многоуровневый список включать как нумерованные, так и маркированные списки?
1. Да правильный ответ
2. нет
Пример.
1. Зима
а) декабрь
б) январь
в) февраль
2. Весна
а) март
б) апрель
в) май
</span>
При использовании 256-цветовой палитры для хранения одной точки рисунка требуется log(2)256 = 8 бит; при использовании 2 цветов - log(2)2 = 1 бит.
20 Кбайт = 20*1024 байт = 20*1024*8 бит
Пусть K - количество точек рисунка, тогда K*8-K*1 = 20*1024*8
K = 20*1024*8/7
Первоначальный объем рисунка = (20*1024*8/7)*8 бит = 20*8/7 Кбайт ≈ 22,86 Кбайт