Program co;
var
i, n, t, c: integer;
begin
c := 0;
readln(n);
for i := 1 to n do
begin
readln(t);
if (t mod 6 = 0) and (t mod 10 = 4) then
c := c + 1;
end;
writeln('чисел: ', c);
end.
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
const
n=8;
begin
var a:=MatrixRandom(n,n,10,90);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:3);
Writeln
end;
var k:=0;
for var i:=0 to n-1 do
if a[i,i].IsEven then Inc(k);
Writeln('k=',k);
end.
Пример
23 32 75 57 27 14 26 53
46 75 17 68 57 60 10 43
76 10 62 83 62 20 89 15
28 36 71 86 67 13 34 46
84 38 56 90 16 40 19 16
15 39 75 15 23 41 23 70
48 17 50 81 82 18 41 13
33 69 39 82 34 31 77 43
k=3
Сам tux paint
нажимаешь сохранить как
и нажимаешь сохранить в ту папку в которой тебе надо
Первая задача:
24×32×64=49152
Умножаем на кол-во битов(8)
49152×8=393216бит
Переводим в КБ и получаем
393216бит=48КБ
ОТВЕТ:48 КБ
ВТОРАЯ ЗАДАЧА
30+30=60
60×10=600бит
ОТВЕТ:600бит
Третья задача
256/16=16
ОТВЕТ:в 16 раз