Program z1;
var x,y:real;
begin
read(x);
y:=6*sqr(x)+3*sqr(sqr(x)+1);
writeln(y);
end. (это если та двойка после скобок означает квадрат)
В одном килобайте 1024 байт, в одном байте 8 бит.
а) 200 байт < 256 байт = 0,25 Кб
б) 3 байта = 3 * 8 бит = 24 бита
в) 1536 бит < 1536 байт = 1,5 Кб
г) 1000 бит < 1024 байт = 1 Кб
д) 8192 байт > 1024 байт = 1 Кб
Ето по твоему 1-4 клас ))
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51)-10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then k:=k+1;
if k>0
then writeln('В массиве есть отрицательный элемент(ы)')
else writeln('В массиве все элементы >=0');
end.
Пример:
<span> -5 6 -4 13 -1 -6 9 30 36 36
В массиве есть отрицательный элемент(ы)</span>
1). 3 - это значит, что трехзначное число.
5 - сумма цифр в этом числе.
Ответ: 410
2). 8мб=2^26 бит
8мб=8192 кбайт
8192 кбайт*0.25=2048=2^24 бит
2^26/2^20=2^6=64 сек.
2^24/2^20=2^4=16 сек.
64-28=36
Ответ: А36
3). 2^2+2^3+2^4+2^5=4+8+16+32=60
Ответ: 60
B9). м=и+е+к=8+8+8=24
и=е=8
к=е=8
е=в+г+ж=1+3+4=8
в=б=1
г=б+а+д=1+1+1=3
ж=г+д=3+1=4
б=а=1
Ответ: 24
B12). Ответ: 170
B15). Очень много расписывать. Там целую таблицу составлять нужно.
B14). Честно не знаю как.