16=2^4 => 4 бита на пиксель
72*72*4=20736 бит=2592 байт=3 кб
Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.
Itranslateтакая программка Где вы можете переводить слова
Ето логично!!!
Спочатку порахуй на всіх трьох знімках скільки зірок,там де найменше це правильна!