Решите в течении часа, ТЕСТ 1 Какое значение будет напечатано в результате работы программы: a=3 b=-5 - id1223814720221223 от Alisa1999WWW 23.12.2022 03:48

Question

Информатика: Решите в течении часа, ТЕСТ 1 Какое значение будет напечатано в результате работы программы: a=3 b=-5 If a =b: a=a+7 else: b=b+4 x=a*b; print (x); 1.-15 2.-50 3.-3 4.-10 5.программа неработо Какое значение будет напечатано в результате работы программы: a=3 b=-5 If a =b: a=a*7 else: b=b*4 x=a+b; print (x); 1.-2 2.-16 3.-17 4.-420 5.программа неработо Какое значение будет напечатано в результате работы программы: a=3 b=-5 If a =b: a=a*7 else: b=b*4 x=a-b; print (x); 1.8 2.26 3.23 4.41 5.программа

Alisa1999WWW · Accepted Answer

Var
A: array [1..120] of real;
i, res: integer;

begin
randomize();
res := 0;

for i := 1 to 120 do
begin
    A[i] := random(101);
    writeln('A[', i, '] => ', A[i]);
end;
writeln();

for i := 1 to 120 do
    if abs(A[i]) > 17 then
      inc(res);

writeln(res);
end.

var
C: array [1..20] of integer;
i, res: integer;

begin
randomize();
res := 0;

for i := 1 to 20 do
begin
    C[i] := random(101);
    writeln('C[', i, '] => ', C[i]);
end;
writeln();

for i := 1 to 20 do
    if C[i] mod 2 = 1 then
      C[i] := -1 * C[i];

writeln('New array:');
for i := 1 to 20 do
begin
    writeln('C[', i, '] => ', C[i]);
end;
end.

MOGZ ответил