Объясните программу в паскале, var a,b: integer; begin a: =2; b: =0; while a 10 do begin a: =a+2; b: - id123986820220902 от MAXIM3600 02.09.2022 07:29

Question

Информатика: Объясните программу в паскале, var a,b: integer; begin a: =2; b: =0; while a 10 do begin a: =a+2; b: =b+3*a; end; write(b); end. в частности эту строчку - while a 10 do

MAXIM3600 · Accepted Answer

если числа изначально в 10 системе:array = list(map(int, input().split())); res = 0; res1 = 0 #ввод  и переменныеfor i in array:    if len(bin(i)[2:]) == 4: res += i; res1 += 1  #пробегаемся по массиву и смотрим подходит ли элемент в двоичном представленииtry:    print(res / res1)  #если не было подходящих будет деление на 0, поэтому я использовал try except except: print(0)  #ну если все же подходящих не было выводим 0если уже в 2:array = list(map(int, input().split())); res = 0; res1 = 0for i...

Объясните программу в паскале, var a,b: integer; begin a: =2; b: =0; while a < > 10 do begin a: =a+2; b: =b+3*a; end; write(b); end. в частности эту строчку - while a < > 10 do

MOGZ ответил