Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
1. Найдем общее количество пикселей, зная что глубина цвета - 4 бита (значит одним байтом кодируются 2 пикселя) : 125*1024*2 = 256000
2. Осталось разделить найденное значение на 400:
256000/400 = 640
Ответ: 640
S = 27
к 0 прибавляется 7, затем 6, 5, 4, 3 ,2 = 27; то есть цикл выполняется до тех пор, пока а не станет равно 1
Абвгдеёжзийклмнопрстуфхцчшщъыьэюя
1 шаг - 18211913115
2 шаг - 51131911281
3 шаг - дйэзйъа
Чаще всего встречается буквы "й"
Номер буквы "й" - 11
char months[][4]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
unsigned int num;
scanf("%u",&num);
if(num<=12) printf("%s",months[num-1]);
else printf("invalid number");