ЖЁСТКИЙ ДИСК ,ИЛИ ОПЕРАТИВНАЯ ПАМЯТЬ(RAM)
Var
i,n,m,x,k:Integer;
s:String;
Begin
Read(n);
While (n>0) do
begin
m:=(n mod 10);
n:=(n div 10);
x:=x+m;
k:=k+1;
end;
Writeln('Сума : ',x);
Writeln('<span>Середнє арифметичне </span> : ',x/k:0:1);
end.
N= 8
Q= 600бит
Nc - ?
Решение:
N=2
8= 2 в 3 степени
I= 3 бит/символ
600бит : 3= 200 символов
Program g;
var a,b,c,i:integer;
begin
writeln('Введите количество чисел');
readln(a);
c:=1;
writeln('Введите ', a, ' чисел(а)');
for i:=1 to a do
begin
readln(b);
c:=c*b;
end;
writeln('Произведение чисел=',c);
readln;
<span>end.
Program g;
var a,b,c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if (a+b)>0 then
c:=(a*a)+(b*b)
else
c:=(a+b)*(a+b);
writeln('Результат=',c);
readln;
<span>end.
</span>
Третье задание не понял.</span>
javascript:var x = prompt(), y = prompt(); alert(x >= -4 && x <= 4 && y >= 0 && (x < 0 ? y <= 4 + x : y <= 4 - x) ? "Принадлежит." : "Не принадлежит.");