Var
a:integer;
begin
write('Введите номер месяца:');read(a);
case a of
1: write('Январь');
2: write('Февраль');
3: write('Март');
4: write('Апрель');
5: write('Май');
6: write('Июнь');
7: write('Июль');
8: write('Август');
9: write('Сентябрь');
10: write('Октябрь');
11: write('Ноябрь');
12: write('Декабрь');
end;
end.
В данной программе k - это количество шагов, т. е. от 6 до 12 включительно. Получается 7 шагов. Если совсем не понимаешь, то проще расписать каждый шаг от 6 до 12.
Например,
k:= 6; s:= 0+10
k:= 7; s:= 10+10
k:= 8; s:= 20+10
...
k:= 12; s:= 60+10
I=1,44Мбайт=1474,56Кбайт=1509949,44байт=12079595,52бит
....................................
1) размер по диагонали - Не влияет, т.к. может быть маленький экран и плохая картинка или большой экран и хорошая.