Uses Crt; var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n); Write('Для завершения работы программы нажмите Enter'); Readkey end.
Тестовое решение: Вычисление среднего арифметического последовательности действительных чисел Введите количество чисел последовательности ->5 Введите последовательность. После ввода каждого числа нажмите Enter 5.4 7.8 3.0 1.5 2.3 Среднее арифметическое введенной последовательности: 4 Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net: var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n) end.
Думаю, логика у нас здесь будет такая: нужно разложить данные три числа на простые сомножители. Получится: 132 = 2 * 2 * 3 * 11 106 = 2 * 53 134 = 2 * 67 Что у них есть общего - то можно откинуть, потому что количество кругов будет при общих сомножителях делиться без остатка. Собрать в ответ нужно следующее: от первого - 2 * 2 * 3 * 11 от второго - 53 (двойку не берём, потому что она уже взята с первым) от третьего - 67 (двойку опять не берём)
Получается: 2 * 2 * 3 * 11 * 53 * 67 = 468732 секунды. Это, как я думаю, ответ.
При этом (чисто для сведения), до момента встречи: первый намотает 3551 круг второй - 4422 круга третий - 3498 кругов.
Crt;
var
i,n:integer;
a,s:real;
begin
Writeln('Вычисление среднего арифметического');
Writeln('последовательности действительных чисел');
Write('Введите количество чисел последовательности ->');
Readln(n);
Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
s:=0;
for i:=1 to n do
begin
Read(a);
s:=s+a
end;
Writeln('Среднее арифметическое введенной последовательности: ',s/n);
Write('Для завершения работы программы нажмите Enter');
Readkey
end.
Тестовое решение:
Вычисление среднего арифметического
последовательности действительных чисел
Введите количество чисел последовательности ->5
Введите последовательность. После ввода каждого числа нажмите Enter
5.4
7.8
3.0
1.5
2.3
Среднее арифметическое введенной последовательности: 4
Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net:
var
i,n:integer;
a,s:real;
begin
Writeln('Вычисление среднего арифметического');
Writeln('последовательности действительных чисел');
Write('Введите количество чисел последовательности ->');
Readln(n);
Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
s:=0;
for i:=1 to n do
begin
Read(a);
s:=s+a
end;
Writeln('Среднее арифметическое введенной последовательности: ',s/n)
end.
132 = 2 * 2 * 3 * 11
106 = 2 * 53
134 = 2 * 67
Что у них есть общего - то можно откинуть, потому что количество кругов будет при общих сомножителях делиться без остатка. Собрать в ответ нужно следующее:
от первого - 2 * 2 * 3 * 11
от второго - 53 (двойку не берём, потому что она уже взята с первым)
от третьего - 67 (двойку опять не берём)
Получается: 2 * 2 * 3 * 11 * 53 * 67 = 468732 секунды. Это, как я думаю, ответ.
При этом (чисто для сведения), до момента встречи:
первый намотает 3551 круг
второй - 4422 круга
третий - 3498 кругов.