<span>Делишь несколько раз на 10, каждый раз определяешь остаток от деления, если остаток -0, то счетчик + 1</span>
const
n = 3;
var
s,i : integer;
begin
for i := 1 to n do
if odd(i) then
s := s + i * i * i
else
s := s + i * i;
writeln (s);<span>
end.</span>
Program z1;
var i,n:byte;
f:int64;
begin
f:=1;
readln(n);
for i:=1 to n do begin
f:=f*i
end;
writeln(f);
readln
<span>end.</span>
Sub maxZn()
'заполнение массива
Dim mas(20)
S = ""
Randomize
For i = 1 To 20
mas(i) = Round(Rnd(100) * 100)
S = S + Str(mas(i)) + ","
Next i
'поиск максимального числа и количества его повторений
qty = 1
max = mas(1) 'предполагаем, что максимальное число в первом элементе массива
For i = 2 To 20
If mas(i) = max Then
qty = qty + 1
End If
If mas(i) > max Then
max = mas(i)
qty = 1
End If
Next i
MsgBox "последовательность чисел " + S
MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty)
End Sub
<span>Sub test()
Call maxZnEnd
Sub</span>