Кс = (Vc/V0)*100%
V0 = 14778,69 Кбайт
Vc = Кс/100*V0 = 0,006*14778,69 Кбайт = 88,67214 Кбайт = 88,67214*1024 байт ≈ 90801 байт = 90801*8 бит = <span>726408 бит</span>
Var
x: real;
begin
readln(x);
if x=0 then exit;
write(1/x);
end.
Не понимаю, зачем тут repeat
Составим программку:
uses Crt;
const n=20;
type Mas=array [1..n, 1..n] of integer;
var A: Mas;
i,k, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=1 to n do
begin
for k:=1 to n do
begin
if i>k then
begin
A[i,k]:=1;
Sum:=Sum+A[i,k];
end
else
begin
A[i,k] :=-1;
Sum:=Sum+A[i,k];
end;
Write(A[i,k]:3);
end;
WriteLn;
end;
WriteLn;
WriteLn(' Sum = ',Sum);
ReadLn;
end.
Эта программа симметрично относительно главной диагонали заполняет массив единичками с плюсом или минусом и считает сумму диагональных элементов.
Если n=20, то Sum = -20
Если n = 100, то Sum = - 100
ПРАВИЛЬНЫЙ ОТВЕТ: 3) - 100
Дважды из кувшина 8 лит. наливаем воду в кувшин 3 литра, а затем выливаем воду. Так делаем два раза. В кувшине из под восьми литров осталось два литра. Эти два литра выливаем в три литра, а кувшин восемь литров снов полностью набираем. <span>Из полного кувшина 8 литров доливаем в кувшин 3 литра оставшийся 1 литр. В итоге у нас кувшин 8л в котором 7л воды. </span>
Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.
*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;
