Пожалуйста, представьтесь:

Алгоритмы с ветвлениями 1

1. Какой результат получится после выполнения следующего алгоритма:

var k,s : integer;
begin
k:=17;
if k div 2 >10 then s:=k else s:= k div 2;
writeln(s);
end.

алгоритм не выполнится

0

17

8

2. Вычислите результат выполнения следующего алгоритма:

var k,s:integer;
begin
k:=23;
if k mod 3 > 2 then s:=k else s:= k mod 3;
writeln(s);
end.

3. Дано пятизначное целое число. Сумму каких цифр числа находит данный алгоритм?

var k,k1,k2,k3,k4,k5,s : integer;
begin
read(k);
s:=0;
k1:=k div 10000;
k2:=(k div 1000)mod 10;
k3:=(k div 100)mod 10;
k4:=(k div 10)mod 10;
k5:=k mod 10;
if (k1 mod 2 = 0) and (k1 mod 5 =0) then s:=s+k1;
if (k2 mod 2 = 0) and (k1 mod 5 =0) then s:=s+k2;
if (k3 mod 2 = 0) and (k1 mod 5 =0) then s:=s+k3;
if (k4 mod 2 = 0) and (k1 mod 5 =0) then s:=s+k4;
if (k5 mod 2 = 0) and (k1 mod 5 =0) then s:=s+k5;
writeln(s);
end.

кратных семи

кратных пяти

нечетных

четных

всех

4. Какой результат будет выведен в процессе выполнения программы:

var x,y,z,s : integer;
begin
x:=5;
y:=-4;
z:=-9;
s:=30;
if x>0 then s:=s-x;
if y>0 then s:=s-y;
if z>0 then s:=s-z;
writeln(s);
end.

37

12

25

5. Какой результат будет выведен в процессе выполнения программы:

var x,y,z,t,s : integer;
begin
x:=-6;
y:=-7;
z:=8;
t:=-1;
s:=0;
if x<0 then s:=s+1;
if y<0 then s:=s+1;
if z<0 then s:=s+1;
if t<0 then s:=s+1;
writeln(s);
end.