Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
Экран 800 х 600 пикселей, всего на экране 800 х 600 = 480000 пикселей
Глубина цвета 32 бита для каждого пикселя, или 32 / 8 = 4 байта
Для хранения изображения потребуется 480000 * 4 = 1920000 байта.
1920000 / 1024 = 1875 Кбайт
Ответ: 1875 Кбайт
Потому что в то время знать письменность и чтение было очень важно и не каждый этому учился,поэтому его считают мудрецом
Наверное будет так:
y := a1 + a4 =>
y := a1 + a3 / x =>
y := a1 + a2 / x / x =>
y := a1 + a1 / x / x / x =>
y := a1 (1 + 1 / x^3) =>
y := 10 / (29x) * (1 + 1 / x^3)