var
a, n : integer;
begin
repeat
read(a);
if a div 7 = 0 then n += 1;
until a = 0;
writeln(n);
end.
CLS
a$ = "abc"
INPUT "n = ", n
INPUT S$
IF LEN(S$) < n THEN
n = LEN(S$)
END IF
k = 0
FOR i = 1 TO n - 2
IF MID$(S$, i, 3) = a$ THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END
Const
N = 20;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
if A[i] mod 2 = 0 then S:=S+A[i];
End;
WriteLn;
WriteLn('Сумма чётных элементов: ',S);
End.
1 Кбайт=2^10 байт
2^10 байт/64=2^4 байт= 2^7 бит= 128 бит
3план анимации 4 подготовка онимации в действ