Написать программу решения в pascal abc. : занятия в школе начинаются в 8: 30. урок длится 40 минут, перерывы между уроками – 15 минут. ввести номер урока и вывести время его окончания. (при решении используйте div и mod).

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.

2, 4, 8, 16 (двоичная (10000), четверичная (100), восьмеричная (20), шестнадцатеричная (10))

64000*16=1024000 б=128000 б=125 кб

var a: integer; beginreadln(a); write (a div 10); end.