Var a: array[0..49] of Integer; sr:real;sum,i,n: integer;beginwriteln('Исходный массив');for i:=0 to 49 do begina[i]:=Random(300);write(a[i]:4);if a[i] mod 2 = 0 then begin sum:= sum + a[i]; n:= n +1; end;end;sr:= sum / n;writeln;writeln('Cреднее арифметическое значение четных ',sr);end.
10011010, если расписывать, то просто 154 делить на два в столбик, и всё остатки должны сойтись с моим полученным числом, удачи!
<em>На Паскале:</em>
var x: integer;
begin
writeln('Введите число: ');
readln(x);
if x mod 9=0 then
writeln('Число кратно 9')
else
writeln('Число не кратно 9');
end.
2 , 48 , 163 , 209 ,324 тоесть между 2 и 48 получается 47 а между 48 и 163 получаеться 115
Такое изображение займет
57 * 57 = 3249 бита
3249 / 8 = 406,125 байта