Объяснить, что будет напечатано программой program e3; var a, b: integer; begin read(a,b); writeln(a, - id354091920220625 от 57den16 25.06.2022 20:59

Question

Информатика: Объяснить, что будет напечатано программой program e3; var a, b: integer; begin read(a,b); writeln(a, b, a); end. исходные значения а и b: 2 и 0?

57den16 · Accepted Answer

1.
Const N = 10;
Var i,S:integer; m:array [1..N] of integer;
Begin
randomize; S:=0;
for i:=1 to N do begin
m[i]:= random(201)-100;
writeln(m[i]);
end;
for i:=1 to N do
if m[i] mod 2 = 0 then
S:=S+m[i];
writeln('Summa = ',S);
readln;
end.

2.
Const N = 100;
Var i,p:integer; B:array [1..N] of integer;
Begin
randomize; p:=0;
for i:=1 to N do begin
B[i]:= random(201)-100;
writeln(B[i]);
end;
for i:=1 to N do
if B[i] mod 3 = 0 then
p:=p*B[i];
writeln('Proiz = ',p);
readln;
end.

Объяснить, что будет напечатано программой program e3; var a, b: integer; begin read(a,b); writeln(a, b, a); end. исходные значения а и b: 2 и 0?

MOGZ ответил