Var a,s:integer;
begin;
readln(a);
while a<>0 do
begin;
s:=s+(a mod 10);
a:=a div 10;
end;
write(s);
<span>end.</span>
Программы, которые содержат командуповторения, называются … а) линейными ... Совокупность всех команд, которые может выполнить конкретный исполнитель ..
Var n,i,k:Integer;
begin
write ('Введите натуральное число (n<=1000): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
<span>Информация<span> для человека - это содержание сигналов (сообщения), воспринимаемых человеком непосредственно или с помощью специальных устройств, расширяющее его знания об окружающем мире и протекающих в нём процессах.</span></span><span>Сигналы могут быть непрерывными или дискретными.</span><span>Непрерывный сигнал принимает бесконечное множество значений из некоторого диапазона. Между значениями, которые он принимает, нет разрывов.</span><span><span>Дискретный сигнал </span><span>принимает конечное число значений. Все значения дискретного сигнала можно пронумеровать целыми числами. но я не уверен что правильно
</span></span>
На светофоре (красный,жёлтый,зелёный) сейчас горит зелёный