Дано:
K=512*256=131072
N=4096
Найти:
V-?
Решение:
V=K*I
I=log₂N
I=log₂4096=12 бит
V=131072*12=1572864 бит : 8=196608 байт : 1024=192 Кб
Ответ: 192 Кб
Var a,b,k:integer;
begin
k:=0;
writeln('Введите число');
readln(a);
repeat
if (a mod 10) in [4,8] then k:=k+1;
a:=a div 10;
until a=0;
writeln('Количество чисел=',k)
end.
Введите число
24583
Количество чисел=2
Пример (1;1)
<span>var x,y: real;
begin
readln(x,y);
if y<=3-x*x then
if y>=0 and x>=0 or </span>y>=x+1 and x < 0<span> then
write('принадлежит')
else
write('не принадлежит')
end.</span>
Каждое задание выполнено на отдельном листе.