Откройте файл с электронной таблицей «Вариант 6». На основании данных, содержащихся в этой таблице, ответьте на во а. Чему равно среднее расстояние от Анапы до других городов, указанных в таблице (за исключением расстояния от Анапы до Анапы)? ответ на этот во запишите в ячейку G1 таблицы, используя формулу.
1б) Сколько в таблице представлено городов, расстояние от которых до Архангельска меньше среднего расстояния от Анапы до других городов? ответ на этот во запишите в ячейку G2 таблицы, используя формулу.
2а. Чему равно наименьшее расстояние от каждого города до Астрахани (за исключением расстояния от Астрахани до Астрахани)? ответ запишите в ячейку Н1 таблицы, используя формулу.
2б. Насколько расстояние от каждого города до Астрахани больше наименьшего расстояния от Астрахани до этого города? ответы запишите в ячейки F2, F3, …? F197. В ячейке А11 установите символ «-«.
ответы должны быть вычислены с точностью не менее двух знаков после запятой. Полученную таблицу необходимо сохранить под фамилией и именем с указанием варианта и отправить учителю на проверку
// Внимание! Если программа не работает, обновите версию!
function IsPrime(m:integer):=(Range(2,Round(sqrt(m))).All(x->m mod x<>0));
begin
var n:=ReadInteger('n=');
Range(1,n).Where(i->IsPrime(i)).Println
end.
Пример
n= 318
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
function NOD(m,n:integer):integer;
begin
while n>0 do (m,n):=(n,m mod n);
Result:=m
end;
begin
var a,b:integer;
Write('Введите пару натуральных чисел:'); Read(a,b);
Writeln('НОД=',NOD(a,b))
end.
Пример
Введите пару натуральных чисел:7955 5661
НОД=37