Партнерка на США и Канаду по недвижимости, выплаты в крипто

  • 30% recurring commission
  • Выплаты в USDT
  • Вывод каждую неделю
  • Комиссия до 5 лет за каждого referral

Задание 1

Определите, что будет написано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s:=0

нц для k от 1 до 11

s:=s+12

кц

вывод s

кон

DIM s, k AS INTEGER

s = 0

For k = 1 TO 11

s=s+12

NEXT k

PRINT s

END

Var s, k: integer;

Begin

s := 0;

for k:= 1 to 11 do;

s:=s+12;

write(s);

End.

Решение 1:

Так как перед началом цикла переменной s присвоено значение 0, то в этом случае можно поступить проще. Количество циклов (11) умножить на число (12), прибавляемое к значению переменной s. Получим 132.

Решение 2:

Также несложно и подсчитать значения, «прокрутив» в уме или на бумаге программу:

1)  s:=0+12; // = 12

2)  s:=12+12; // = 24

3)  s:=24+12; // = 36

4)  s:=36+12; // = 48

5)  s:=48+12; // = 60

6)  s:=60+12; // = 72

7)  s:=72+12; // = 84

8)  s:=84+12; // = 96

9)  s:=96+12; // = 108

10) s:=108+12; // = 120

11) s:=120+12; // = 132

Ответ: 132.

Задание 2.

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

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s:=8

нц для k от 3 до 8

s:=s+8

кц

вывод s

кон

DIM s, k AS INTEGER

s = 8

For k = 3 TO 8

s=s+8

NEXT k

PRINT s

END

Var s, k: integer;

Begin

s := 8;

for k:= 3 to 8 do;

s:=s+8;

write(s);

End.

Решение:

НЕ нашли? Не то? Что вы ищете?

Так как перед началом цикла переменной s присвоено значение 8, то количество циклов (от 3 до 8 равно 6 – считаем: 3,4,5,6,7,8) умножить на число 8, прибавляем к значению переменной s. Получим 56.

Задание 3.

Определите, что будет написано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s:=100

нц для k от 1 до 9

s:=s - 5

кц

вывод s

кон

DIM s, k AS INTEGER

s = 100

For k = 1 TO 9

s = s - 5

NEXT k

PRINT s

END

Var s, k: integer;

Begin

s := 100;

for k:= 1 to 9 do;

s := s - 5;

write(s);

End.

Решение:

Так как перед началом цикла переменной s присвоено значение 100, то количество циклов (от 1 до 9 – получается 9) умножаем на число (5). Получили 45. Из 100 вычитаем 45. Получаем: 55

Задание 4.

Определите, что будет написано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s:=2

нц для k от 1 до 3

s:=s * s

кц

вывод s

кон

DIM s, k AS INTEGER

s = 2

For k = 1 TO 3

s = s * s

NEXT k

PRINT s

END

Var s, k: integer;

Begin

s := 2;

for k:= 1 to 3 do;

s := s * s;

write(s);

End.

Решение:

Здесь цикл s*s повторяется 3 раза (от 1 до 3 – считаем: 1,2,3) и т. к. s изначально присвоено 2, получаем:

1)  s:=2*2; // = 4

2)  s:=4*4; // = 16

3)  s:=16*16; // = 256

Ответ: 256

Задание 5.

Определите, что будет написано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s:=1

нц для k от 1 до 7

s:=s * 2

кц

вывод s

кон

DIM s, k AS INTEGER

s = 1

For k = 1 TO 7

s = s * 2

NEXT k

PRINT s

END

Var s, k: integer;

Begin

s := 1;

for k:= 1 to 7 do;

s := s * 2;

write(s);

End.

Решение:

Здесь цикл s*2 повторяется 7 раз (от 1 до 7 – считаем: 1,2,3,4,5,6,7) и т. к. s изначально присвоено 1 получаем:

1)  s:=1*2; // = 2

2)  s:= 2*2; // = 4

3)  s:=4*2; // = 8

4)  s:=8*2; // = 16

5)  s:=16*2; // = 32

6)  s:=32*2; // = 64

7)  s:=64*2; // = 128

Ответ: 128

Задание 6.

Определите, что будет написано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s:=1

нц для k от 3 до 0

s:=s * 3

кц

вывод s

кон

DIM s, k AS INTEGER

s = 1

FOR k = 3 TO 0 STEP -1

s = s * 3

NEXT k

PRINT s

END

Var s, k: integer;

Begin

s := 1;

for k:= 3 downto 0 do

s := s * 3;

write(s);

End.

Решение:

Здесь цикл s*3 повторяется 4 раза (от 3 до 0 – считаем: 3,2,1,0) и т. к. s изначально присвоено 1 получаем:

1)  s:=1*3; // = 3

2)  s:= 3*3; // = 9

3)  s:=9*3; // = 27

4)  s:=27*3; // = 81

Ответ: 81