Какое число будет напечатано на экране при выполнении нижеприведенного алгоритма? алг нач цел x, s s := -1 нц для x от 10 до -3 шаг -2 s := s - x s := s + 1 кц вывод s*x кон

44

Объяснение:

s = - 1

нц для x от 10 до -3 шаг -2

Действия в цикле:

1) s = s - x

2) s = s + 1

Вывод s * x

x = 10       s = -1

Действия в цикле:

1) s = s - x  = -1 - 10 = -11

2) s = s + 1 = -11 + 1 = -10

x = 8       s = -10

Действия в цикле:

1) s = s - x  = -10 - 8 = -18

2) s = s + 1 = -18 + 1 = -17

x = 6       s = -17

Действия в цикле:

1) s = s - x  = -17 - 6 = -23

2) s = s + 1 = -23 + 1 = -22

x = 4       s = -22

Действия в цикле:

1) s = s - x  = -22 - 4 = -26

2) s = s + 1 = -26 + 1 = -25

x = 2       s = -25

Действия в цикле:

1) s = s - x  = -25 - 2 = -27

2) s = s + 1 = -27 + 1 = -26

x = 0       s = -26

Действия в цикле:

1) s = s - x  = -26 - 0 = -26

2) s = s + 1 = -26 + 1 = -25

x = -2       s = -25

Действия в цикле:

1) s = s - x  = -25 - (-2) = -25 + 2 = -23

2) s = s + 1 = -23 + 1 = -22

Цикл закончился

x = -2       s = -22

s * x = -2 * -22 = 44

Вывод 44

ответ:1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

uses crt;

var

i,n,k:integer;

a:array[1..100] of integer;

begin

writeln('введите числа последовательности. Окончанием ввода будет число 0');

i:=0;

n:=0;

repeat

i:=i+1;

n:=n+1;

read(a[i]);

write(' ');

until (a[i]=0) or (i>1000);

writeln;

k:=0;

writeln('Последовательность:');

for i:=1 to n-1 do

begin

write('a[',i,']=',a[i],' ');

if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then

k:=k+1;

end;

writeln('кол-во целых чётных чисел кратных 7 - ',k);

end.

Второй вариант : 1

2

3

4

5

6

7

8

9

10

11

12

13

14

uses crt;

var k,n: integer;

begin

write('vvedite chislo ');

readln(n);

if (n mod 7=0) and (n mod 2=0) then inc(k);

while n<>0 do

     begin

     write('vvedite chislo ');

     readln(n);

     if (n mod 7=0) and (n mod 2=0) then inc(k);

     end;

writeln(k-1);

end.

3 ВАРИАНТ :

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

const

 lim1=30000;

 lim2=1000;

var

 a,kol,res:integer;

begin

 kol:=0;

 res:=0;

 repeat

   repeat

     readln(a);

     if abs(a)>lim1 then

       writeln('Oshibka vvoda. |a|<=',lim1);

   until abs(a)<=lim1;

   if a<>0 then

     begin

       inc(kol);

       if (a mod 2=0) and (a mod 7=0) then

         inc(res);

     end;

 until (a=0) or (kol=lim2);

 write(res);

end.

1) От 10 до 14

2) random(1, 10); random(-10,10); random(50,100);

3)

var a:array[1..100] of integer;

   i, p, o:integer;

begin

 p := 0;

 o := 0;

 for i := 1 to 100 do

   a[i] := random(-20, 20);

 writeln(a);

 for i := 1 to 100 do begin

   if a[i] >= 0 then p := p + 1

   else o := o + 1;

 end;

 writeln('Положительных: ' + p);

 writeln('Отрицательных: ' + o);

end.

4)

var a:array[1..20] of integer;

   b:array[1..20] of integer;

   i:integer;

begin

 randomize;

 for i := 1 to 20 do

   begin

   a[i] := random(1, 5);

   b[i] := random(1, 5);

   end;

 for i := 1 to 20 do begin

   if a[i] = b[i] then begin

   writeln('Номер: ' + i);

   writeln('Значение: ' + a[i]);

   end;

 end;

end.