Вот так должно быть
5 DIM A(1000)
40 IF A(I)=0 THEN M=I: GO TO 60
90 PRINT S
Это выполняется делением в столбик на 2. Остатки от деления при каждом действии - либо 1, либо 0. По окончании деления нужно собрать все нули и единицы, начиная с конца. Получится 11101.
Var a, n, k: integer;
Begin
Write('Количество чисел - ');
readln(n);
k:=0;
For var i:=1 to n do
begin
read(a);
if (a mod 10 =0) then k:=k+1;
end;
Writeln(k);
End.
Какое свойство) у него 3 кута они равные все вместе 180градусов ето все)