Написать программу(паскаль с пояснениями, желательно. нужно с for. найти сумму всех n-значных чисел, кратных k1 < (или равно) n< (или равно)4).

var

  k, n, summ, i, max, min: integer;

begin

  write('n = '); readln(n);

  write('k = '); readln(k);

  max : = 9;

  min : = 1;

  for i : = 2 to n do

  begin

      max : = max * 10 + 9;

      min : = min * 10;

  end;

  for i : = min to max do

      if i mod k = 0 then

          summ : = summ + i;

  writeln('сумма = ', summ);

end.

program sada;

var k,n,res,i: integer;

      temp: string;

begin

res: =0;

readln(k);

temp: ='';

for i: =1 to n do

temp: =temp+'9';

n: =strtoint(temp);

for i: =1 to n do begin

if (i mod k = 0) then res: =res+i;

end;

writeln(res);

end.

 

 

p.s. программа написана на pascalabc

. моделирование биоритмов

 

1. загрузить по ms excel - пуск-программы- ms excel

2. встать на ячейку а1 - записать в нее - моделирование биоритмов человека

3. в ячейку а3 - надпись - исходные данные

4. в ячейку а4 - надпись - параметры (константы)

5. в ячейку с4 - надпись - параметры

6. в ячейку а5 - надпись - период цикла

7. в ячейку в5 - надпись - 23

8. в ячейку с5 - надпись - дата рождения

9. в ячейку d5 - ввести свою дату дня

10. в ячейку а6 - надпись - период эмоционального цикла

11. в ячейку в6 - надпись - 28

12. в ячейку с6 - надпись - дата отсчета

13. в ячейку d6 - ввести сегодняшнюю !

14. в ячейку а7 - надпись - период интеллектуального цикла

15. в ячейку в7 - надпись -33

16. в ячейку с7 - надпись - длительность прогноза

17. в ячейку d7 - надпись - 30

18. в ячейку а8 - надпись - результаты

19. в ячейку а9 - надпись - порядковый день

20. в ячейку в9- надпись -

21. в ячейку с9 - надпись - эмоциональное

22. в ячейку d9 - надпись - интеллектуальное

23. в ячейку а10 - формула -      =$d$6

24. в ячейку а11 - формула -      =a10+1

25. в ячейку b10 - формула -      = sin ((2*пи ()*а10-$d$5)/23)

26. в ячейку c10 - формула -      = sin ((2*пи ()*а10-$d$5)/28)

27. в ячейку d10 - формула -      = sin ((2*пи ()*а10-$d$5)/33)

28. протянуть ячейку a11 за маркер заполнения вниз на 1 месяц

29. протянуть ячейки b10, c10, d10 за маркер заполнения вниз на 1 месяц

30. нарисовать графики для всех рассчитанных ячеек: $a$9: $d$42 и разместить его на текущем или отдельном листе. выделить весь диапазон, вставка - график

 

31. анализ результатов: при изменении даты рождения и даты отсчета вид графиков 3-х состояний меняется

 

 

виды шрифтов, отличающихся характером и графическим начертанием (формой и размером засечек, а также контрастностью):

рубленные шрифты (гротеск) – малоконтрастные шрифты, засечки отсутствуют. символы таких шрифтов имеют одинаковую толщину, хорошо читаются как в мелком, так и в крупном размере. на сегодняшний день широко применяются в оформлении сайтов.

медиевальные. характеризуются умеренной контрастностью и наличием небольших засечек, которые изящно сопрягаются с главными штрихами. символы и буквы в таких шрифтах имеют преимущественно наклонную ось и округлые объемы.

брусковые шрифты. небольшой контрастностью, для них характерны длинные утолщенные засечки, которые имеют форму брусков. начертания брусковых шрифтов отличаются плавными от толстых штрихов к тонким линиям с небольшим закруглением. они в свою очередь делятся на несколько отдельных типов: египетские, современные и старые шрифты.  

обыкновенные шрифты. характеризуются ярко выраженной контрастностью и продолговатыми ровными засечками, которые перпендикулярно соединены с основными элементами.

новые малоконтрастные шрифты. эту группу отличают длинные скругленные засечки, которые плавно соединяются с основой символа. применяются при работе с большими объемами текста, например в газетах и журналах.