Var m1,m2,st,i:integer;
begin
m1:=0; m2:=0;
st:=1;
for i:=1 to 30 do
begin
m1:=m1+100;
m2:=m2+st;
st:=st*2;
end;
writeln('Богатый: ',m1,' бедный: ',m2);
if m1<m2
then writeln('Выиграл богатый') else writeln('Выиграл бедный');
end.
Результат:
Богатый: 3000 бедный: 1073741823
Выиграл богатый
64000:8=8000байт
8000:1000=8Кбайт
16*8=128 Кбайт
ответ:128
Я пойду по второму пути. Пусть некто измерял среднее число крыс в своём подвале и количество испорченных продуктов (в граммах). Результаты приведены в таблице.
По графику похоже, что корреляция есть, T-критерий Пирсона это подтверждает.
Var a:real;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
<span>end.</span>