В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
navozovaleksejj
navozovaleksejj
11.08.2020 18:58 •  Информатика

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

Показать ответ
Ответ:
skrylnikvozvyb6
skrylnikvozvyb6
30.11.2022 01:31
Решение на VB.NET:
        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()
Сданной . условие - составьте программу которая учитывает все варианты, все цифры в четырехзначном ч
0,0(0 оценок)
Ответ:
barbara27
barbara27
01.05.2022 06:01
Какое значение примет переменная х в результате выполнения следующих фрагментов программ? 
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 условию не соответствуют)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота