Ответ:
Var
X, i: longint;
Begin
Readln(l);
For x := - 100 to 100 do
Begin
If l*x-5*x+2*l=2 then writeln(x);
End;
End.
Program zadanie;
var a,b:real;
beginreadln(a,b);
if (a > b) then b := sqr(a)else if(a < b) then b:=sqrt(a);
writeln(b);
readln;
<span>end.</span>
64*64*16*1024=<span>
<span>67108864бит/8/1024/1024=8Мбайт</span></span>
56 (в 16с/с) = 0101 0110 (в 2с/с) = 010 010 110 (в 2с/с) = 226 (в 8с/с)
1) var a: array[0..10] of integer; i, s: integer;
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
<span>end.
2) </span>var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.