Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.
Pascal ABC
__________
Var
a,b,n:integer;
Begin
Readln(n);
While (a<>n) or (b<>n) do begin
Read(a);
if a=n then write('1') else begin
Read(b);
if b=n then write('2');
end;
end;
end.
151 в десятичной
не меньше 20 символов
var a:array[1..100] of integer;
Begin
randomize; {чтоб рандом был разный для каждого запуска програмы}
for i:= 1 to 100 do
if i mod 2 =0 then a[i] := 2*random(100)+1; {формула нечетного числа}
else a[i]:=2*random(100);
End.
Есличто непонятно - пиши в сообщения, растолкую