9
код на vbscript
Sub Zadanie18007865()
A = 2
B = 3
A = A * B
B = A + B
C = 2 * B / A * 3
MsgBox c
End Sub
Call Zadanie18007865()
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 100 to 620 do
if A mod 23 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 1.5255279798308E+55
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 11 downto 6 do
P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 332640
Правильно: 543(6)=5*6(в квадрате)+4*6+3= 180+24+3=207,
56(7)=5*7+6=41
неправильно:91(3), так как нельзя использовать в записи 9. (есть только 0, 1, 2),
23(2), так как нельзя использовать 2. (есть только 0, 1).
1) Вычисляет сумму цифр любого 4-значного числа
2) 0 2 4 9 12 15