Var a:real;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
<span>end.</span>
Var k:integer;
function sr(n:integer):real;
var i,s:integer;
begin
s:=0;
for i:=1 to n do s:=s+i*i;
sr:=s/n;
end;
begin
write('k='); readln(k);
writeln('Среднее арифметическое = ', sr(k));
end.
Пример:
k=5
Среднее арифметическое = 11
Это пластинка, она небольшая,
на ней сохранится картинка любая (диск)
стоит дом. кто в него войдет - тот знаний наберет (школа)
Делим 1000 монет на 4 кучки по 250 монет. В одной из этих кучек есть фальшивая монета(она либо легче либо тяжелее обычной монеты)
ложим на весы две кучки по 250 монет. Если вес у них равен, то среди них нет фальшивой монеты. Ложим две другие кучки. Тот вес, который отличается от прошлого взвешивания говорит о том, что в кучке есть фальшивая монета(это мы определяем на втором взвешивании).
Мы определили кучку с фальшивой монетой. Дальше разбиваем кучу еще раз и повторяем операцию
Изначально кучу можно разбить по разному, например, на 10 кучек по 100 монет