10111--------------1*2^4+0*2^3+1*2^2+1*2^1+1*2^0=16+0+8+4+2+0=(считай)
133------------1*4^2+3*4^1+3*4^0= посчитай, учитывая,что любое число в 0 степени=1
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
Var
ch, otvet, i: longint;
begin
for i := 1 to 5 do
begin
ReadLn(ch);
otvet := otvet + ch;
end;
WriteLn(otvet);
end
3 координаты
Ось х - длина
Ось у - ширина
Ось z - высота
Import java.util.*;
import java.lang.*;
import java.io.*;
class Ideone
{
public static void main (String[] args) throws java.lang.Exception
{
Scanner in = new Scanner(System.in);
int a = in.nextInt();
int b = in.nextInt();;
if (a % b == 0 || b % a == 0) {
System.out.println("Да, одно из чисел является делителем
другого");
} else {
System.out.println("Нет, ни одно из чисел не является делителем
другого");
}
}
}