#include <iostream>
using namespace std;
int main()
{
int a,b,n = 0;
float S = 0;
cin >> a;
cin >> b;
for(int i = a; i <= b; i++)
{
n++;
S+=i*i;
}
S = S/n;
cout.setf(ios::fixed);
cout.precision(2);
cout << "S = " << S << endl;
return 0;
}
2) d
3) алгоритмическое описание процессов
4) эффективность
5) 1 - в 2 - г 3 - а 4 - б
6) 1 - в 2 - а 3 -г 4 - б
Могу Помочь С 5-ым Номером. - (2,3) (6,3) (9,3) (12,1) (9,1) (7,1) (10,1) (5,3) (1,3) (12,1) (4,1) (6,3) (12,1) (3,3) (7,2) (2,1) (5,1) (3,3) (10,3) (4,2) (8,2) (12,1) (10,3) (12,1) (7,1) (7,2) (2,3) (1,1) (10,1) (12,1) (10,3) (9,3) (12,1) (6,1) (7,1) (10,1) (5,3) (1,3) (12,3)
4-ый номер - чётёщ лтчат ыгыт кёюлтёдлц.
или я хочу спать, или 4-тый номер странноватый •_•
Поскольку тут речь о последовательности неизвестной длины, вводимой с клавиатуры до появления нуля, а условие позволяет для каждого вводимого числа сразу решить, должно ли оно входить в сумму, задача решается без использования массива и условие "<span>Количество чисел не превышает 1000" - это просто ловушка для наивных с тем, чтобы в случае использования массива длиной 1000 объявить затем решение неэффективным по памяти.
</span><em>1. Решение на современной версии Паскаля</em>
<em>PascalABC.NET 3.2, сборка 1389 от 01.03.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadSeqIntegerWhile(n->n<>0)
.Where(n->(n mod 3=0) and (n mod 10=6)).Sum;
Writeln('Сумма отобранных чисел равна ',s)
end.
<em>Пример</em>
15 36 26 72 25 96 83 0
Сумма отобранных чисел равна 132
<em>2. Решение "по-школьному"</em>
var
n,s:integer;
begin
s:=0;
repeat
Read(n);
if (n mod 3=0) and (n mod 10=6) then s:=s+n
until n=0;
Writeln('Сумма отобранных чисел равна ',s)
end.
<u>Пример</u>
15 36 26 72 25 96 83 0
Сумма отобранных чисел равна 132
