Было:
const
N = 10;
var
i, S: integer;
m: array [1..N] of integer;
begin
randomize;
S := 0;
for i := 1 to N do
begin
m[i] := random(201) - 100;
writeln(m[i]);
end;
for i := 1 to N do
if m[i] mod 2 = 0 then
S := S + m[i];
writeln('Summa = ', S);
readln;
end.
Стало:
цел i, S, N
N := 10
цел таб m[1:N]
алг
нач
S := 0
нц для i от 1 до N
m[i] := irand(-100, 100)
вывод m[i], нс
кц
нц для i от 1 до N
если mod(m[i], 2) = 0 то
S := S + m[i]
все
кц
вывод "Summa = ", S
кон
3)
64×32=2048
2048×512=1.048.576 бит
1.048.576:8=131.072 байт
131.072:1024=128 Кбайт
Ответ:128 Кбайт
5)
79:2=39(остаток 1)
39:2=19(остаток 1)
19:2=9(остаток 1)
9:2=4(остаток 1)
4:2=2(остаток 0)
2:2=1(остаток 0)
Записываешь наоборот и получается 001111
Ответ:001111
4)
бабочки | грибы (7000) + бабочки & грибы (2000)= 9000
9000 - 5000 = 4000
Ответ:4000 страниц
Рисунки несут наглядную информацию. Текстовое сообщение не обладает свойством образности.Текстовая информация не образная,а знаковая.<span>Текст -это текстовые данные.</span>
<span>N=A+B+C-N
</span>Если N=A+B, то N=A+B+C-N=A+B+C-С=A+B, следовательно N=C
<span>N=A
IF N > В THEN N = В (это условие надо нарушить A<B)
IF N < C THEN N = C </span>(это условие надо сделать A<С)
A<B и A<С
<span>
Ответ: </span><span>в) А < В и А < С</span><span>
</span>