Дано Шины адреса 36
Процессор 80386
Решения
80386 * 36 = <span>2893896</span>
Var
x:Real;
begin
Readln(x);
Writeln('x = ', x, ' y = ', (10-5*x)/(sqrt(x*x - 6*x + 10)));
end.
Program Z1;
uses CRT;
var a, b, c, s: integer;
begin
read(a, b, c);
s:=a+b+c;
writeln(s);
end.
Int P = допустим 20;
int S;
S = P/4 * P/4 ;
возможно не так я не знаю паскаля но алгоритм правельный
Использована формула
var
f, i: longint;
begin
f := 1;
i := 2;
while f < 3669972 do
begin
f := 2 * (f + i);
i := i + 1
end;
Writeln('m=',i)
end.
Результат выполнения программы:
m=21
По второй задаче 8+6=14