Вот программа : program xxx; <p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>
нц для i от 1 до N вывод "a[",i,"] = " ввод a[i] кц вывод нс
s:=a[3]+a[5] вывод "s = ", s, нс кон
Б) алг Б нач цел M = 10 целтаб a[1:M] цел i, max
нц для i от 1 до M вывод "a[",i,"] = " ввод a[i] кц вывод нс
max:=a[1] нц для i от 2 до M если a[i] > max то max:=a[i] все кц вывод "max = ",max,нс кон
В) алг В нач цел M = 10 целтаб a[1:M] цел i, k
нц для i от 1 до M вывод "a[",i,"] = " ввод a[i] кц вывод нс
k:=0 нц для i от 1 до M если mod(a[i],6)=0 то k:=k+1 все кц если k>0 то вывод "k = ",k,нс иначе вывод "Нет чисел, кратных 6" все кон Г) алг Г нач цел N = 10 целтаб a[1:N] цел i, p
нц для i от 1 до N вывод "a[",i,"] = " ввод a[i] кц вывод нс
p:=1 нц для i от 1 до N если mod(a[i],2)=0 то p:=p*a[i] все кц вывод "p = ",p,нс кон
D:\погода\фото\2020\зима.jpg