Откройте файл с электронной таблицей «Вариант 6». На основании данных, содержащихся в этой таблице, ответьте на во а. Чему равно среднее расстояние от Анапы до других городов, указанных в таблице (за исключением расстояния от Анапы до Анапы)? ответ на этот во запишите в ячейку G1 таблицы, используя формулу.1б) Сколько в таблице представлено городов, расстояние от которых до Архангельска меньше среднего расстояния от Анапы до других городов? ответ на этот во запишите в ячейку G2 таблицы, используя формулу. 2а. Чему равно наименьшее расстояние от каждого города до Астрахани (за исключением расстояния от Астрахани до Астрахани)? ответ запишите в ячейку Н1 таблицы, используя формулу. 2б. Насколько расстояние от каждого города до Астрахани больше наименьшего расстояния от Астрахани до этого города? ответы запишите в ячейки F2, F3, …? F197. В ячейке А11 установите символ «-«.ответы должны быть вычислены с точностью не менее двух знаков после запятой. Полученную таблицу необходимо сохранить под фамилией и именем с указанием варианта и отправить учителю на проверку
Ответы
1.
program pr1;
uses crt;
var n,k,i,t:integer;
begin
clrscr;
write('Введите целое число n=');
readln (n);
for i:=2 to n do begin
t:=0;
for k:=2 to n do
if i mod k=0 then t:=t+1;
if t=1 then write(i:3);
end;
readln;
end.
2.
Program pr2;
Var a, b: Integer;
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
End;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('НОД: ', NOD(a, b));
ReadLn;
End.
program pr1;
uses crt;
var n,k,i,t:integer;
begin
clrscr;
write('Введите целое число n=');
readln (n);
for i:=2 to n do begin
t:=0;
for k:=2 to n do
if i mod k=0 then t:=t+1;
if t=1 then write(i:3);
end;
readln;
end.
2.
Program pr2;
Var a, b: Integer;
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
End;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('НОД: ', NOD(a, b));
ReadLn;
End.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Нужно записать алгоритмы в кумире
Автор: lyukiss
97 в 10 сестеме перевести в двуичнуюплэз
Автор: kobzev-e
Какое число стоит в КОРНЕ этого графа?
Автор: MISAKOVNA49
Реализовать функцию на основе карт Карно
Автор: M19026789436
Приведи в соответствие ALT+4 ☻♡☀️ ALT+3 ALT+1 ALT+15 ALT+9 ALT+14
Автор: diana-020
// Внимание! Если программа не работает, обновите версию!
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