Question

var s, i: integer;
begin
s := 1;
For i := 2 to 5 do
s := s * 2;
write(s);
end.

Запишите значение переменной s, полученное в результате работы следующей программы на языке программирования Паскаль.

Answer 1

Var s, i:integer;
Begin
S := 3; 
For i := 2 to 5 do //будет выполнено 4 раза
S := S + 2*i;
Writeln(S);
end.
То есть на первом шаге цикла мы имеем s=3+2*2=7
2: s=7+2*3=13
3: s=13+2*4=21
4: s=21+2*5=31
Ответ: 31

Var k, s: integer;
Sea: array [1..12] of integer;
begin
Sea[1] := 170; Sea[2] := 170; //заполняем массив
Sea[3] := 190; Sea[4] := 210;
Sea[5] := 230; Sea[6] := 220;
Sea[7] := 240; Sea[8] := 160;
Sea[9] := 190; Sea[10] := 210; 
Sea[11] := 170; Sea[12] := 170;
s := 100; //начальное значение s
For k := 1 to 12 do //будет выполнено 12  раз
if Sea[k] > 220 then 
begin
s := s + Sea[k];
end;
Writeln(s);
end.
Таким образом, 12 раз проверяется условие, больше ли за определённый год( соответствует шагу цикла) приплыло людей, чем 220. В первый раз условие будет выполнено на 5 шаге
s=100+230=330,
 второй- на 7
s=330+240=570
Ответ: 570
5)A2=2
B2=7
C2=X
D2=5
На графике видно, что 2 сектора равны.
1)x=2, слишком мало
2)x=4, не равен ни одному сектору
3)x=7
4)x=11, смотри пункт 2
Ответ: 3

Answer 2

блин я прост запутался я быстро писал

Answer 3

Var s, i: integer;
begin
s := 1;
For n := 2 to 5 do
s := s * 3;
write(s);
end.

Запишите значение переменной s, полученное в результате работы следующей программы на языке программирования Паскаль.

Answer 4

да емае, не i а n

Answer 5

короче ещё раз вопрос задам, по новой, без ошибок сделали, надеюсь...

Answer 6

мда..