Program n1;
var n,sum,p: integer;
begin
readln(n);
sum:=0;
p:=1;
while n<>0 do
begin
sum:=sum+n mod 10;
p:=p*(n mod 10);
n:= n div 10;
end;
writeln('сумма цифр: ',sum);
write('произведение: ',p);
end.
Алгебра высказываний является составной частью одного из современных быстро развивающихся разделов математики - математической логики. Математическая логика применяется в информатике, позволяет моделировать простейшие мыслительные процессы. Одним из занимательных приложений алгебры высказываний - решение логических задач.В логических задачах исходными данными являются не только и не столько числа, а сложные логические суждения, подчас весьма запутанные. Эти суждения и связи между ними бывают иногда столь противоречивы, что для их разрешения привлекают вычислительные машины.Для решения экономической задачи в практической части была выбрана среда табличного процессора MS Excel
Посмотри на пункт b и с. Плохо видно. В b, там точка после s в условии? Если да, то это ошибка, если нет, значит плохо видно на фотографии. И c там выражение закрывается точкой с запятой(;) или двоеточием(:)? Если двоеточием, то это ошибка, нужно исправить на точку с занятой, если нет, то плохо видно на фотографии.
1. берет m и будет суммировать 2
пр - m=1 / вывод: 1, 3 , 5 , 7 , 9 ......n
пр - m=2 / вывод: 2, 4 ,6 , 8, 10......n
2. не совсем врубился...
---------------------------------------------------------------------
1) input m , r , n
for m = r to n step 2
s=s+m
next
print s
2)
dim b(100)
for i = 1 to 100
b(i)=1
next
input z "вводишь сколько спортсменов выбыло
while s<=z
input n 'вводишь номера спортсменов которые выбыли.
b(n)=0
s=s+1
wend
for i = 1 to 100
if b(i)>0 then 'выбирает какие ячейки остались ( спортсмены) и пишет их позицию
print i
end if
next
Пожалуйста!
Найдем количество бит на пиксель:
160*1024*8 : 1024*256 = 5
<span>А 5 битами можно закодировать 32 цвета (2 в 5 степени) . Вот и всё!</span>