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

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


№ 20 А9

1

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

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

Бейсик

Паскаль

алг

нач

цел s, k

s := 8

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

s := s + 8

кц

вывод s

кон

DIM k, s AS INTEGER

s = 8

FOR k = 3 TO 8

s = s + 8

NEXT k

PRINT s

Var s, k: integer;

Begin

s := 8;

for k := 3 to 8 do

s := s + 8;

writeln(s);

End.

Ответ: ___________________________.

2

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

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

Бейсик

Паскаль

алг

нач

цел n,  m

n :=  50

нц для n от 1 до 7 m  :=  m  -  7

кц

вывод m

кон

DIM m, n AS INTEGER

m = 50

FOR n = 1 TO 7

m = m - 7

NEXT n

PRINT m

var m, n : integer;

begin

m := 50;

for n:= 1 to 7 do

m : = m - 7 ;

write(m);

end.

3

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

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

Бейсик

Паскаль

алг нач

цел  n, s

s  : =  0,

нц для n от 1 до 10

s  :=  s  +  7

кц

вывод S кон

DIM s, n AS INTEGER

s = 0

FOR n = 1 TO 10

S = S + 7

NEXT n

PRINT s

var s, n: integer;

begin

s := 0;

for n := 1 to 10 do

s : = s + 7;

write (s);

end.

4

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

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

Бейсик

Паскаль

алг нач

цел s, к

s  := 0

нц для к  от 2 до 12

S := S  + 11

КЦ

ВЫВОД S

кон

DIM S, k AS INTEGER

s  =  0

FOR K = 2 TO 12

S = S + 11

NEXT K

PRINT S

var s, k:integer;

begin

S := 0;

for k := 2 to 12 do S := S + 11;

writeln (s);

end.

5

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

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

Бейсик

Паскаль

алг

нач

цел s, к

S := 100

нц для к от 0 до 10

S : = S - 5

КЦ

ВЫВОД S

кон

DIM S, k AS INTEGER

S  =  100

FOR k = 0 TO 10

S = S - 5

NEXT k

PRINT S

var s, k:integer;

begin

S:= 100;

for k := 0 to 10 do

S : = S - 5 ;

writeln (s);

end.

6

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

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

Бейсик

Паскаль

алг

нач

цел  а, к

а := 4

нц для к от 5 до 8

а := а + 2 *k

КЦ

вывод а

кон

DIM a, k AS INTEGER

а = 4

FOR к = 5 ТО 8

а = а + 2 * к

NEXT к

PRINT а

var а, к : integer;

begin

а := 4;

for k := 5 to 8 do

а : = а + 2 * k ;

write(а);

end.

7

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

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

Бейсик

Паскаль

алг

нач

цел  а, к

а := 40

нц для к от 2 до 5

а : = а - к

КЦ

вывод а

кон

DIM a, k AS INTEGER

а = 40

FOR к = 2 ТО 5

а = а - к

NEXT к

PRINT а

var а, к : integer;

begin

а := 40;

for к := 2 to 5 do

а := а - к;

write(а);

end.

8

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

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

Бейсик

Паскаль

алг

нач

цел s, к

s := 0

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

s := s + 3 * k

кц

вывод s

кон

dim s, k as integer

s = 0

for к = 3 to 8

s = s + 3 * к

next к

print s

var s, k : integer;

begin

s := 0;

for k := 3 to 8 do

s := s + 3 * k;

write (s) ;

end.

9

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


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

Бейсик

Паскаль

алг

нач

цел s, k

s:=0

нц для к от -5 до 10

s:=2*k+s

КЦ

ВЫВОД S

кон

DIM s AS INTEGER

DIM k AS INTEGER

s=0

FOR k=-5 TO 10

s=2*k+s

NEXT k

PRINT s

END

var s, k:integer;

begin

s:=0;

for k:=-5 to 10 do

s:=2*k+s;

writeln(s)

end.

10

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


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

Бейсик

Паскаль

алг

нач

цел s, k

s:=l

нц для к от 1 до 30

s:=(k-5)*s

КЦ

ВЫВОД S

кон

DIM s AS INTEGER

DIM k AS INTEGER

s=l

FOR k=l TO 30

s=(k-5)*s

NEXT k

PRINT s

END

var s, k:integer;

begin

s:=1;

for k:=l to 30 do

s:=(k-5)*s;

writeln(s)

end.

11

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


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

Бейсик

Паскаль

алг нач

цел s, k

s:=l

нц для к от 1 до s:=(-l)*s

КЦ

ВЫВОД S

кон

DIM s AS INTEGER

DIM k AS INTEGER

s=l

FOR k=l TO 30 s=(-l)*s

NEXT k

PRINT s

END

var s, k:integer;

begin

s:=l;

for k:=l to 30 do

s:=(-l)*s;

writeln(s)

end.

12

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


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

Бейсик

Паскаль

алг нач

цел s

вещ к

s:=25

если mod(s,2)<>0 то

s:=s-l

k:=s/2

иначе k:=s

все

вывод к

кон

DIM s AS INTEGER

DIM k AS DOUBLE

s=25

IF s MOD 2 <> 0

THEN s=s-l

k=s/2

ELSE

k=s

END IF

PRINT k

END

var s:integer;

k:real;

begin

s:=25;

if s mod 2 <> 0 then

begin

s:=s-l;

k: =s/2

end

else k:=s;

writeln(k)

end.

13

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


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

Бейсик

Паскаль

алг

нач

цел s

вещ к

s:=377

если mod(s,10)=7

то

s:=s+3

k:=s/10

иначе к:=1

все

вывод к

КОН

DIM s AS INTEGER

DIM k AS DOUBLE

s=377

IF s MOD 10 = 7 THEN

s=s+3

k=s/10

ELSE

k=l

END IF

PRINT k

END

var s:integer;

k:real;

begin

s:=377;

if s mod 10 = 7

then begin

s:=s+3;

k:=s/10

end

else k:=l;

writeln(k)

end.

14

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


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

Бейсик

Паскаль

алг

нач

цел х, у,z

х:=25 у:=11 у:=х-2*у

если х > у то

х:=5*у-х

z:=3*x+y

иначе z:=2+x*y

все

вывод z

кон

DIM х AS INTEGER

DIM у AS INTEGER

DIM k AS INTEGER

x=25 y=ll y=x-2*y

IF x > у THEN

x=5*y-x

z=3*x+y

ELSE

z=2+x*y

END IF

PRINT z

END

var x, y,z:integer; begin

x:=25;

y:=ll;

y:=x-2*y;

if x > у then

begin

x:=5*y-x; z:=3*x+y

end

else z:=2+x*y;

writeln(z)

end.

15

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

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

язык

Бейсик

Паскаль

алг

нач

цел s, k

s := 1

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

s := s * k

кц

вывод s

кон

DIM s, k AS INTEGER

s = 1

FOR k = 3 TO 6

s = s * k

NEXT k

PRINT

END

Var s, k: integer;

Begin

s:=1;

for k:=3 to 6 do

s:=s * k;

write(s);

End.

16

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

Текст программы приведен на трех языках программирования.

var  A, b:INTEGER;

BEGIN

A:=1; b:=0;

while a<8 do begin b:=b+a; a:=a*2; end;

WRITELN(B);

END.

17

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

Текст программы приведен на трех языках программирования

var x, y:integer;

begin

x:=4; y:=8;  while x>0 do begin y:=y-x; x:=x-2; end;  writeln(y);

end.

18

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

var x, y,z:integer;

begin

x:=1; y:=0; z:=0;

while x<=10 do begin x:=x+2; y:=y+x; z:=z+y; end;

writeln(z);

end.

19

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

var a, b:longint;

begin

a:=13305;  b:= 0;

While a<>0 Do  Begin  b := b*10 + a Mod 10;  a := a Div 10; End;

Write(b);

end.

20

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

var x, y,z:integer;

begin

x:=18; y:=15;  while x<>y do if x>y then x:=x-2*y else y:=y-3; writeln(x,' ',y);

end.

21

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

uses crt;  var s, a,p:integer;

begin

clrscr;

S:=1; p:=0;

for a:=1 to 10 do  if a mod 3 = 0 then begin  p:=p+a;  s:= s+p; end;

writeln(s:1,p:10)

end.

22

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

uses crt;

var k, n:integer;

begin

clrscr;

n:=10;

for k:=10 downto 0 do  if k mod 2 = 0 then begin  n:=n+k; end;

writeln(n)

end.

23

Определите значение переменной с после выполнения фрагмента алгоритма, записанного в виде блок-схемы:

Примечание: знаком := обозначена операция присваивания. В ответе укажите одно число — значение переменной с.

24

Определите значение переменной с после выполнения фрагмента алгоритма, записанного в виде блок-схемы:

25

Определите значение переменной с после выполнения фрагмента алгоритма, записанного в виде блок-схемы

26

Определите значение переменной с после выполнения фрагмента ал­горитма (см. рис.).

27

Определите значение переменной к после выполнения фрагмента ал­горитма, записанного в виде блок-схемы:

28

Определите значение переменной с после выполнения фрагмента ал­горитма (см. рис.).

29

Определите значение переменной m после выполнения фрагмента ал­горитма, записанного в виде блок-схемы (см. рис.).

30

Дан фрагмент блок-схемы алгоритма. Какое значении примет пере­менная у после выполнения алгоритма, если входные значения х = -3, У = -2?

31

Определите значение переменной т после выполнения фрагмента ал­горитма, записанного в виде блок-схемы (см. рис.).