1)Автомат составляет слова из трёх букв. Для составления слов доступны буквы Ч, Е, Л, О. Каждое слово должно начинаться с гласной буквы. Каждая из букв может встречаться любое количество раз или отсутствовать вовсе. Определите количество слов, получившихся в результате работы этого Автомата. 2)Сообщение записано на языке в алфавит которого входит 128 символов. Найдите количество символов этого сообщения, если известно, что его информационный объем равен 812 байта.
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()
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 условию не соответствуют)