Program pr;
uses crt;
Var k,a,sum:integer;
Begin
Writeln('Vvedite posledovatelnost');
k:=0;
readln(a);
sum:=a;
While a<>0 do
Begin
readln(a);
sum:=sum+a;
if (a mod 2=0) and (a mod 3=0) then k:=k+1;
end;
Writeln('k=',k);
Writeln('sum=',sum);
readln;
end.
Я надеюсь вы в 5 классе ...
var i: integer;
sum:real;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+1/i;
writeln(sum);
<span>end.</span>
Алгоритм -это последовательность действий.Пример:Открывание двери.1 Взять ключ Подойти к двери.Засунуть ключ в замочную скважину.Повернуть ключ против часовой стрелке.И все)
Var
a :array [1..10] of integer;
i :integer;
begin
randomize;
for i:=1 to 10 do
a[i]:= random(9);
<span>end.</span>