Сканер вводит информацию с бумаги на комп
a = int(input())
s = 1
flag = True
while s < a:
ch = s
count = ch
while ch > 9:
ch = sum(map(int,str(ch)))
count += ch
if count == a:
print(s)
flag = False
break
s += 1
if flag:
print(-1)
Const
n = 5;
type
mas = array[1..n] of integer
var
max : integer;
begin
max := 0;
for i:=1 to n do
if (max < mas[i]) and (mas[i] mod 5 = 0) then max := mas[i];
writeln(max);
end.
В чёрно-белой картинке цвет одной точки кодируется одним битом, значит количество точек = 6000/1 = 6000