Ваша задача — написать программу, которая перемножает все цифры, введенного пользователем целого числа, пока оно не станет меньше либо равной 9. Число вводит пользователь с клавиатуры, и оно всегда должно быть больше нуля. Примеры:

999 -> 2 # 999 -> 9 * 9 * 9 = 729 -> 7 * 2 * 9 = 126 -> 1 * 2 * 6 = 12 -> 1 * 2 = 2

1000 -> 0

423 -> 8

1 -> 1
Надо решить без использования функций

Question 1

Ваша задача — написать программу, которая перемножает все цифры, введенного пользователем целого числа, пока оно не станет меньше либо равной 9. Число вводит пользователь с клавиатуры, и оно всегда должно быть больше нуля. Примеры:

999 -> 2 # 999 -> 9 * 9 * 9 = 729 -> 7 * 2 * 9 = 126 -> 1 * 2 * 6 = 12 -> 1 * 2 = 2

1000 -> 0

423 -> 8

1 -> 1
Надо решить без использования функций

Accepted Answer

print(Введите целое число)n = int(input());i = 0multiple = 1string = str(n)do = len(string)while i < do:    multiple = multiple * (n % 10)    n = int(((n - n % 10) / 10))    i += 1    if (i == do):        if (multiple > 9):            n = multiple            multiple = 1            i = 0            string = str(n)            do = len(string)        else:            breakprint(результат: ,multiple)Объяснение:

Question 2

Вчем была основная трудность при чтении египетских иероглифов?

Accepted Answer

при чтении текстов на древнейших языках основная трудность - отсутствие гласных, непонятно, как слово звучало на самом деле

Question 3

Найдите ошибку. вместо большего числа, выводит 0. program bolsheyechislo; var a, b, c, d, e, max, max1, max2 : integer; function maxchislo: integer; begin if max1 > max2 then max : = max1 else max : = max2; end; begin writeln('введите 5 чисел: '); readln(a, b, c, d, e); max1 : = a; max2 : = b; max : = maxchislo; max1 : = c; max2 : = max; max : = maxchislo; max1 : = d; max2 : = max; max : = maxchislo; max1 : = e; max2 : = max; max : = maxchislo; writeln('самое большое число: ', max ); end.

Accepted Answer

program bolsheyechislo;var a, b, c, d, e, max : integer;function MaxChislo(x,y: integer): integer;beginif x > y then MaxChislo := x else MaxChislo := y;end; begin writeln('Введите 5 чисел:'); readln(a, b, c, d, e);max := MaxChislo(MaxChislo(MaxChislo(a,b),MaxChislo(c,d)),e);writeln('Самое большое число: ', max ); end.Пример:Введите 5 чисел: 12 45 38 79 50Самое большое число: 79

Question 4

Информ. сообщение объемом 3 кб содержит 6144 символа.сколько символов содержит алфавит при которого было записано сообщение?

Accepted Answer

3Кбайта = 3072 Байта Размер поделим на кол-во символов, что бы узнать, сколько занимает 1 символ.  Байт 0.5 Байт = 4 Бита - занимает 1 символ.    Значит, алфавит состоит из 16 символов.

Question 5

Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы массива с нечетными значениями

Accepted Answer

include include using namespace std; int main() { int a[10]; for(int i=0; i<10; i++) a[i] = rand() % 20; for(int i=1; i<10; i+=2) cout << a[i]; return 0; }

Информатика: новые вопросы