Ответ:
b.8
Объяснение:
Диаграмма построена по 8 строке.
Program p1;
var i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,' число: ');
read(a[i]);
end;
for i:=1 to 10 do
if (a[i] mod 3)=0 then writeln('Число: ',a[i]);
<span>end.</span>
Uses Crt;
var N, p,i : integer;
begin
ClrScr;
Write(' N= '); ReadLn(N);
if N<=30 then
if N=0 then Writeln('2^0 = 1')
else
begin
p:=1;
for i:=1 to N do
P:=2*P;
end;
Writeln(' 2^', n,' =',P );
ReadLn;
end.
Раздели на два три раза, припеши 4 , раздели на два! Незачто
Исходник и пример работы в приложении.
Если будут вопросы относительно кода - приложу какие-нибудь комментарии, или же просто спрашивайте под ответом.