К =640*350
N=512
I-?
Решение :
N=2^i=2^9
I=K*i=512*9=4608 бит
Чтобы перевести в байты нам нужно 4608:8=576
Чтобы перевести в Кбайты нам нужно 576/1024=0,56 Кбайт
ну как то так......
Желаю удачи!
Var i:integer; n,k:real;
begin
n:=10;k:=10;
for i:=1 to 6 do
begin
n:=1.1*n;
k:=k+n;
end;
writeln(k:5:2);
end.
var
s:real;
begin
Write('Площадь окружности: '); Read(s);
Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.
Паскаль
if (x<100) and (x>9) and (x mod 19 = 0) then count += 1
Pascal
var
x,y : integer;
begin
readln (x,y);
if (x=0) or (y=0)
then
begin
if x = 0 then
writeln ('Точка лежит на оси y');
if y = 0 then
writeln ('Точка лежит на оси x')'
end
else
begin
if (x>0) and (y>0) then
writeln ('Точка находится в первой четверти');
if (x<0) and (y>0) then
writeln ('Точка находится во второй четверти');
if (x<0) and (y<0) then
writeln ('Точка находится в третей четверти');
if (x>0) and (y<0) then
writeln ('Точка находится в четвертой четверти');
end;<span>
end.</span>