Program ff;
var
summ, count_terms:integer;
begin
summ:=0;
count_terms:=0;
while summ<>324 do
begin
summ:=summ+4;
count_terms:=count_terms+1;
end;
Writeln('Кол-во слагаемых: ',count_terms);
readln();
end.
Var
i, b: integer;
m: array [1..10] of integer;
Begin.
For i:= 1 to 10 do
Readln (m[i],b);
S:= 0
If (m[i] div 10 = b) or ( m[i] mod 10 = b) then
S:=s+1
ну и концовку
Write (S);
End.
Program minus;
Var
A: array(1..100) of longint;
I:integer;
Begin
For i:=1 to length(A) do begin
If A[i] < 0 then writeln(A[i]);
End;
End.
Функция называется экспонента.
Пишется как exp(x);
Математически равна:
где e - константа.
В паскале нет встроенной функции возведения в любую степень, поэтому используется следующее математическое преобразование:
Что в паскале пишется с помощью функций:
<span>Exp((y)*Ln(x));
В данном примере выражение степеня в числителе будет записано на паскале как:</span>
<span>Exp((2*n+1)*Ln(x))</span>
Находим количество символов: 1024×64×64=4194304 символов — байт (т.к. 1 символ=1 байт
В 1 Мбайте — 1048576 байт
Следовательно: 4194304/1048576=4 Мбайта