Program n_1;
var a, b, c, d:integer;
begin
readln(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:= a div 100 mod 10;
writeln('Число ', a, ' состоит из ', d, ' сотен, ', c, ' десятков и ', b, ' единиц');
end.
Я так понял, что это нужно написать на ЯП Pascal
Вот скриншот и прикрепленный файл с кодом.
Набирать здесь не буду из-за неудобочитаемости.
Работает стабильно, хоть и всегда можно реализовать как-то еще проще :)
upd: обновил фалы, теперь всё написано как надо
В RGB, как известно, на каждый цвет приходится по 1 байту, значит, всего на точку 3 байта. Так как точек всего 20*200, то всего изображение займет 20*200*3 байт = 12000 байт
Python 3.6.1:
from random import random
N = 100
a = []
for i in range(N):
a.append(int(random()*2))
print(a[i],end=' ')
print()
for i in range(N):
if (a[i] == 0):
a[i] = 1
else:
a[i] = 0
print(a[i],end=' ')
from random import random
N = 20
a = []
for i in range(N):
a.append(int(random()*(2*N+1)-N))
print(a[i],end=' ')
Max = max(a)
Min = min(a)
print('\nMax =',Max)
print('Min =',Min)
print('Max - Min =',Max-Min)