Дана последовательность натуральных чисел, завершающаяся числом 0. определите, какое наибольшее число подряд идущих элементов этой последовательности равны друг другу.
import sys import math import random a = input("Введите целые числа через пробел: ").split(" ") #schitalia = [int(x) for x in a][:-1] # pereveli k tselomy tipu count = 1 now = 1 for i in range(1, len(a)): if a[i] == a[i-1]: now += 1 else: count = max(count, now) now = 1 print('Максимум подряд идут {0} одинаковых чисел.'.format(count))
1)var a:array[1..3,1..3] of integer; b:array[1..3,1..3] of integer; c:array[1..3,1..3] of integer; i,j:integer; begin; writeln('A array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; a[i,j]:=random(10)-10; write(a[i,j]:4); end; end; writeln; writeln('B array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; b[i,j]:=random(-10,10); write(b[i,j]:4); end; end; writeln; writeln('C array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; c[i,j]:=a[i,j]*b[i,j]; write(c[i,j]:4); end; end; end. 2)var a:array[1..1000,1..1000] of integer; i,j,k,n,u:integer; begin; randomize; readln(n); writeln('A array:'); for i:=1 to n do begin; writeln; for j:=1 to n do begin; a[i,j]:=random(10)-10; write(a[i,j]:4); end; end; for i:=1 to n do begin; for j:=1 to n do u+=a[i,j]; if u<0 then inc(k); u:=0; end; writeln; write('Result:',k); end.
Кодировка какая? Если кодировка Unicode, каждый символ кодируется 16 битами, если переводить в байты тогда 16 бит это 2 байта Строка: 60 символов по 16 бит = 960 бит 60 символов по 2 байта = 120 байт Страница: 40 строк по 960 бит = 38400 бит 40 строк по 120 байт 4800 байт Учебник: 288 страниц по 38400 бит = 11059200 бит 288 страниц по 4800 байт = 1382400 байт ответ: 11059200 бит, 1382400 байт
Если кодировка КОТ-8 или Windows-1251, каждый символ кодируется 8 битами, 8 байт это 1 байт Строка: 60 символов по 8 бит = 480 бит 60 символов по 1 байту = 60 байт Страница: 40 строк по 480 бит = 19200 бит 40 строк по 60 байт = 2400 байт Учебник: 288 страниц по 19200 бит = 5529600 бит 288 страниц по 2400 байт = 691200 байт ответ: 5529600 бит, 691200 байт
import sys
import math
import random
a = input("Введите целые числа через пробел: ").split(" ") #schitalia = [int(x) for x in a][:-1] # pereveli k tselomy tipu
count = 1
now = 1
for i in range(1, len(a)):
if a[i] == a[i-1]: now += 1
else:
count = max(count, now)
now = 1
print('Максимум подряд идут {0} одинаковых чисел.'.format(count))