Var
i: integer;
begin
for i:=10 to 99 do
if (i mod 17 = 0) and ((i mod 10 = 7) or (i mod 10 = 9)) then
writeln(i);
<span>end.</span>
Var i, x, s: integer;begin<span> s := 0;</span><span> for i := 0 to 9 do</span><span> begin</span><span> read(x);</span><span> s := s + x;</span><span> end;</span><span> writeln('summa: ', s);</span><span>end.</span>
М-1
у-1
р-1
л-1
о-1
<span>P(n1,n2,n3,...nk)=n! / (n1!n2!n3!...nk!), при чем n1+n2+n3+...nk=n
</span>5!/(1!1!1!1!1!)=120-1=119
Sub aaa()
a = InputBox("Введите число А")
b = InputBox("Введите число B")
c = InputBox("Введите число C")
s = a + b + c
k = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = "0" Then k = k + 1
Next i
MsgBox "Общее количество нулей равно" + Str(k)
End Sub
Const n=10;
var ar:array[1..n] of integer;
a,b,i,s:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
ar[1]:=a; ar[2]:=b; s:=a+b;
for i:=3 to n do
begin
ar[i]:=s+i;
s:=s+ar[i];
end;
for i:=1 to n do write(ar[i],' ');
writeln;
end.
Пример:
a = 2
b = 3
2 3 8 17 35 71 143 287 575 1151