Задания с выбором ответа:
1. Определи значения переменных a и b после выполнения фрагмента алгоритма
1) 9,28 2) 14,42 3) 15,104 4) 14,28 5) 10,2
a := 42;
b := 14;
a := a div b;
b := a * b;
a := b div a;
2. Определи значения переменной с после выполнения фрагмента алгоритма
1) 15 2) -15 3) 25 4) -25 5) 50
a := 15;
b := 30;
b := a * 2 – b / 2;
if a > b then
c := 3 * b – a / 3
else
c := 3 * a – 4 * b;
1) x:=0; for y:=1 to 9 do x:=x+y;
y:=1 x = 1
y:=2 x = 3
y:=3 x = 6
y:=4 x = 10
y:=5 x = 15
y:=6 x = 21
y:=7 x = 28
y:=8 x = 36
y:=9 x = 45
x = 45
2) x:=1; for y:=1 to 5 do x:=x*y;
y=1 x=1
y=2 x=2
y=3 x=6
y=4 x=24
y=5 x=120
x=120
3) x:=1; while x<>1 do begin x:=x+3; x:=x+1; end;
x=1 (так как условие не используется)
4) x:=1; while x<100 do begin x:=x*2; end;
x=2 (2<100)
x=4 (4<100)
x=8 (8<100)
x=16 (16<100)
x=32 (32<100)
x=64 (64<100)
x=128 ( 128>100)
x=128
Сколько раз выполниться тело цикла:
а) For i:=1 to 10 do x:=x+i;
10 раз (i=1 i=2 i=3 i=4 i=5 i=6 i=7 i=8 i=9 i=10)
б) For k:=2 to 22 do
If k mod 2=0 then s:=s+1;
11 раз (k=2 k=4 k=6 k=8 k=10 k=12 k=14 k=16 k=18 k=20 k=22)
(остальные k условию не соответствуют)
Const SIZE As Integer = 4
Dim a, sum As Integer
a = Console.ReadLine()
sum = a
Dim n(SIZE) As Integer
For i = 1 To SIZE
n(i) = a Mod 10
a \= 10
Next
For i = 1 To SIZE
For j = i + 1 To SIZE
If n(i) > n(j) Then
Dim t As Integer
t = n(i)
n(i) = n(j)
n(j) = t
ElseIf n(i) = n(j) Then
Console.WriteLine("Ошибка")
Exit Sub
End If
Next
Next
For i = 1 To SIZE
sum += (n(i) + n(SIZE - i + 1)) * 10 ^ (i - 1)
Next
Console.WriteLine(sum)
Console.ReadKey()