<span><span>Var
x: Array [1..50] of Real;
i,n: Byte;
s: Real;
BEGIN
Repeat
Write('Введите кол-во элементов не более 50: ');
Readln(n);
until n in [1..50];
s:=0;
For i:=1 to n do
begin
x[i]:=10*Random;
If Odd(i) Then
s:=s+x[i];
Write(x[i]:7:2);
end;
Writeln;
Writeln('Сумма элементов с нечетными индексами = ',s:0:2);
END.</span></span>
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>1-x)and(x<1)and((y>2*x*x)or(y<2*x*x)and(x>0))
then writeln('YES') else writeln('NO')
end.
Пример:
x = 0.75
y = 1
YES
var n,i,rez:integer;
begin
write('Введите n: ');
readln(n);
rez:=0;
for i:=1 to n do
if odd(i) then rez:=rez+i
else rez:=rez-i;
writeln('rez=',rez);
end.
4 в 10 сс равно 4 в 16 сс
Чтобы 25 перевести в 16 сс раздели столбиком 25 на 16, то же самое и с числом 123