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

var s,k: integer;

begin

      read(k);

      s: = k div 100 + k div 10 mod 10 + k mod 10;

      writeln(s);

end.

Требуемая процедура sub ex1(byref a() as integer, byref nn as integer, byref nz as integer)       dim i as integer       nn = 0: nz = 0       for i = 1 to 45               if a(i) = 0 then                       nz = nz + 1               else                       if a(i) < 0 and i < = 35 then                               nn = nn + 1                       end if               end if       next i end sub процедура для тестирования с выводом на лист excel sub test()       dim p(1 to 45) as integer       dim n1 as integer, n2 as integer, i as integer       randomize timer       for i = 1 to 45               p(i) = int(25 * rnd - 12)               cells(i, 1) = p(i)       next i       ex1 p, n1, n2       cells(1, 2) = n1       cells(1, 3) = n2 end sub

Пример компьютера (не быстрого по сегодняшним меркам): имя: аркадий (да, я могу назвать компьютер так, как мне хочется) функция: выполнение вычислений, не требующих большой производительности элементный состав: корпус, материнская плата, процессор, жесткий диск, оперативная память,  монитор, клавиатура, мышь. свойства: корпус: размеры  368 x 367 x 393 мм, встроенный блок питания 450 вт, черныйматеринская плата: совместимость с процессорами intel, оперативная память ddr4, интегрированная графика, 4 выхода usb 2.0, 2 выхода usb 3.0процессор: 2 ядра, 3.30 ггц, техпроцесс 14 нмжесткий диск: 1 тб, 7200 об/мин, скорость чтения/записи 200/150 мб/с, среднее время поиска 14 мсоперативная память: dimm ddr4, 4 гб, частота 2133 мгцмонитор: жк 21,5'', контрастность  1000: 1, время отклика 5 мс,  черный клавиатура: проводная, черная, usb мышь: проводная, черная, usb