Тусирип жверси информатикадан жаксы блем
Задача 1
а)А×В×А×В+В= а×а×в×2в
б)(А+В)×(А+В)=2А×2В
в)А+А×В+А×С=3а×В×С
× это умножить если че
Program n1;
var i,a,kn,pp,n: integer;
begin
write('введите кол-во чисел: ');
readln(n);
pp:=1;
kn:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a);
if a mod 2<>0 then kn:=kn+1;
if a>0 then pp:=pp*a;
end;
writeln('кол-во неч. чисел: ',kn);
writeln('произв. пол чисел: ',pp);
end.
Var value, sigma, counter : integer;
<span>Begin
counter := 0;
</span><span>value := 0;
</span><span>sigma := 0;</span>
<span> while counter < 50 Do
</span><span> begin</span>
<span> value := value + 2;
</span><span> sigma := sigma + value;</span>
counter := counter + 1;
<span> end;</span>
<span> writeln(sigma);
</span><span> readln();
</span><span>End.
</span>