Var a,b,c:integer;
begin
readln(a, b);
c:=a+b;
writeln(c);
end.
Чтобы в двоичную перевести, нужно поделить на 2 и с конца остатка записать ответ; чтобы перевести в 10, нужно расставить разряды (начиная с нуля справа налево) и перемножать (как показано на картинке)
Как смог ,но я в 3 классе, и кстати с 8 Марта
Sub average(ByVal N) S = "" sum = 0 N = Round(N) For i = 1 To N A = InputBox("Введите число № " + Str(i)) A = Round(A * 100) / 100 S = S + Str(A) If i <> N Then S = S + ", " End If sum = sum + A Next i MsgBox "Введённые числа " + S MsgBox "среднее значение " + Str(sum / N)End Sub
Sub test()M1: N = InputBox("Введите N; 0 - Закончить ") If (N = 0) Or (N = "") Then End End If Call average(N)GoTo M1:End Sub