Як отримати випадкове число в діапазоні [1, 100]? *
1 бал
O
x:= random(100);
O
X:= random(99)+1;
ОООО
O
x:= random;
O
X:= random(99);
I VW
-
МИ​

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб

только вчера это

если п и ж аборигены, то она должны всегда говорить правду.значит ж(абориген)говорит правду, что он абориген и п передаёт правду. он абориген.

если п иж пришельцы, то они должны врать.значит ж говорит (неправду) я абориген, и п передаёт он пришелец. контексту.

если п-пришелец,а ж-абориген, то п должен врать, а ж говорить правду. значит жсказал правду " я абориген", а проводник передал он пришелец. несоответсвует контексту.

если п- абориген, а ж пришелец, то п всегда говорит правду, а ж неправду. значит  сказал" неправду "я абориген" а п передал он абориген.

в обоих случаях проводник абориген.

п- проводник

ж - житель

1)

var

a: array[1..50]of real;  

i,n: byte;

sn: real;  

begin 

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr;  

writeln('исходный массив: ');  

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*простой вывод в столбик*/

for i: =1 to n do writeln(a[i]: 5: 3);

/*сумма элементов, стоящих на четных местах*/ 

sn: =0;

while i< =n do

begin

  if odd(i)=false then sn: =sn+a[i];

  i: =i+1;

end;  

/*вывод ответа*/

writeln('сумма элементов, стоящих на четных местах: ',sn: 5: 3);

end. 

2)

var

a: array[1..50]of real;

i: byte;  

begin

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr;  

writeln('исходный массив: ');  

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*количество элементов кратных 3*/

kol: =0;  

for i: =1 to n do

if a[i] mod 3 =0 then kol: =kol+1;  

/*вывод ответа*/

writeln('количество элементов массива, кратных трем: ',kol);

end. 

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.