Написать программу с++ Получить информацию о центральном процессоре, о bios.

1. 147

2. 16

Объяснение:

1.

s = 3       k = 1

пока выполняется условие k < 25 (ДА) выполнить действия:

s = s + k

k = k + 2

s = 3       k = 1

1 < 25       ДА

s = 3 + 1 = 4

k = 1 + 2 = 3

s = 4       k = 3

3 < 25       ДА

s = 4 + 3 = 7

k = 3 + 2 = 5

s = 7       k = 5

5 < 25       ДА

s = 7 + 5 = 12

k = 5 + 2 = 7

s = 12       k = 7

7 < 25       ДА

s = 12 + 7 = 19

k = 7 + 2 = 9

s = 19       k = 9

9 < 25       ДА

s = 19 + 9 = 28

k = 9 + 2 = 11

s = 28       k = 11

11 < 25       ДА

s = 28 + 11 = 39

k = 11 + 2 = 13

s = 39       k = 13

13 < 25       ДА

s = 39 + 13 = 52

k = 13 + 2 = 15

s = 52       k = 15

15 < 25       ДА

s = 52 + 15 = 67

k = 15 + 2 = 17

s = 67       k = 17

17 < 25       ДА

s = 67 + 17 = 84

k = 17 + 2 = 19

s = 84       k = 19

19 < 25       ДА

s = 84 + 19 = 103

k = 19 + 2 = 21

s = 103       k = 21

21 < 25       ДА

s = 103 + 21 = 124

k = 21 + 2 = 23

s = 124       k = 23

23 < 25       ДА

s = 124 + 23 = 147

k = 23 + 2 = 25

s = 147       k = 25

25 < 25       НЕТ     цикл прерывается

2.

s = 2       k = 2

пока выполняется условие s < 50 (ДА) выполнить действия:

s = s + k

k = k + 2

s = 2       k = 2

2 < 50       ДА

s = 2 + 2 = 4

k = 2 + 2 = 4

s = 4       k = 4

4 < 50       ДА

s = 4 + 4 = 8

k = 4 + 2 = 6

s = 8       k = 6

8 < 50       ДА

s = 8 + 6 = 14

k = 6 + 2 = 8

s = 14       k = 8

14 < 50       ДА

s = 14 + 8 = 22

k = 8 + 2 = 10

s = 22       k = 10

22 < 50       ДА

s = 22 + 10 = 32

k = 10 + 2 = 12

s = 32       k = 12

32 < 50       ДА

s = 32 + 12 = 44

k = 12 + 2 = 14

s = 44       k = 14

44 < 50       ДА

s = 44 + 14 = 58

k = 14 + 2 = 16

s = 58       k = 16

58 < 50       ДА        цикл прерывается

1)

var
a: array[1..20] of integer;
i, j, k: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('удалили элементы из одинаковых цифр включая однозначные');
i := 1;
k := 10;
while i <= k do
begin
if (abs(a[i]) < 10) or ((a[i] mod 10) = (a[i] div 10)) then
begin
if i = k then k := k - 1
else
begin
for j := i to k - 1 do a[j] := a[j + 1];
k := k - 1;
end;
end
else
i := i + 1;
end;
for i := 1 to k do
write(a[i]:4);
end.

2)

var
a: array[1..20] of integer;
i, j, k,n: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('введите k(не должно содержать 1)=');
readln(k);
writeln('вставляем k перед всеми элементами где есть цифра 1');
i := 1;
n := 10;
while i <= n do
begin
if (abs(a[i]) mod 10=1) or (abs(a[i]) div 10=1) then
begin
for j:=n+1 downto i+1 do a[j]:=a[j-1];
a[i]:=k;
n:=n+1;
i:=i+1;
end;
i := i + 1;
end;
for i := 1 to n do
write(a[i]:4);
end.

3)

var
a: array[1..10] of integer;
i, j, k: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('меняем местами три первых и три последних элемента');
for i:=1 to 3 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
for i := 1 to 10 do
write(a[i]:4);
end.