Program summa;
var i:integer: s: real;
begin
s:=0;
for i:=1 to 37 do s:=s+1/i;
writeln('s=',s:5:2)
end.
Var x,n,k:integer;
<span>begin </span>
<span>k:=0; </span>
<span>writeln('Введите количество чисел в последовательности'); </span>
<span>readln(n); </span>
<span>writeln('Введите числа'); </span>
<span>while n>0 do begin </span>
<span>readln(x); </span>
<span>if x mod 3=0 then k:=k+1; </span>
<span>n:=n-1; </span>
<span>end; </span>
<span>writeln('Количество чисел четных 3 = ',k); </span>
<span>end.</span>
Возможно, имеется в виду вот это:
12/2=6?
Про алгоритм говорят - выполнить, а про задачу - решить.
Var
m: array [1..31] of integer; //заполненный массив
sr: real; //средняя сумма
sum: integer; //сумма всех элементов
i: integer;
a: integer;//значений выше
b: integer;//значений ниже
c: integer;//равных среднему
begin
for i := 1 to 31 do
sum := sum + m[i];
sr := sum / 31;
for i := 1 to 31 do
if m[i] > sr then
a := a + 1
else if m[i] < sr then
b := b + 1
else c := c + 1;
writeln(a);
writeln(b);
writeln(c);
<span>end.</span>
1 поколение
1946-1958
электронные лампы-диоды и триоды
2 поколение
1958-1964
полупроводниковые транзисторы
3 поколение
1964-1972
мис
4 поколение
1972 по наст. время
бис