Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>
24710 = 2*5*7*353
-----------------------------------------------------
N=2 24710 (10cc) = 10000010000110 (2cc)
N=5 24710 (10cc) = 1242320 (5cc)
N=7 24710 (10cc) = 132020 (7cc)
N=14 24710(10cc) = 9010 (14cc)
N= 35 24710 (10cc) = K60 (35cc)
---------------------------------------------
ответ: N1=2 N2=5 N3=7 N4=14
всего точек: 52 * 52 = 2704
т.к. изображение черно-белое (без градаций серого), имеет 2 цвета, то 2¹ = 2, одна точка — это один бит
объем памяти: 2704 * 1 = 2704 бит = 338 байт
Const N = 5; M = 10; var a: array [1..N, 1..M] of real; s, R: real; kol, i, j: integer; //kol - количество чисел begin writeln('Введите R'); readln(R); for i:= 1 to N do for j:= 1 to M do begin writeln('Введите a[', i, ', ', j, ']'); readln(a[i, j]); if a[i, j] > R then begin kol:= kol + 1; s:= s + a[i, j]; end; end; s:= s / kol; writeln(kol, ' чисел > ', R); writeln('Среднее арифметическое равно ', s);<span>end. </span>
Ответ:
свет, звук, электромагнитные волны, изображение, цвет, регулятор громкости, кнопка включение/выключение
Объяснение: