Var
a,b,n:integer;
begin
a:=2;
readln(n);
write(a,' ');
for b:=1 to n do
begin
a:=a*2;
write(a,' ');
end;
<span>end.</span>
Program one;
Var a:array[1..9999] of rial; i,m,n,k:integer;
Begin
K:=1;
Readln (n);
For i:=1 to n do begin
Readln(a[i]) ;end;
For i:=1 to n do begin
If (a[i]>0) then a[i]:=a[i]*0,4;
If (a[i]=0) then a[i]:=0,5; If (a[i]>0) then k:=k*a[i];
If (a[i])<0) then m:=m+a[i];
End;
Writeln (k,m);
End .
Я пойду по второму пути. Пусть некто измерял среднее число крыс в своём подвале и количество испорченных продуктов (в граммах). Результаты приведены в таблице.
По графику похоже, что корреляция есть, T-критерий Пирсона это подтверждает.
Program fantscrin;
const n = 17;
Var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
write(a[i],' ');
s:=0;
for i:=1 to n do
if(a[i] > 5) then s:=s+a[i];
writeln('');
write('Сумма: ',s);
End.
8 бит = 9,54×(10 в -7 степени) МБ
8 бит = 9,31×(10 в -10 степени) ГБ
8 бит = 9,09×(10 в -13 степени) ТБ