Program z;
Var N,k:integer;
Begin
k:=0;
If N<5 then k:=k+1;writeln(k);
End.
Import java.util.*;
import java.io.*;
import java.lang.*;
class Program {
public static void main(String[] args) {
Scanner Scan = new Scanner(System.in);
System.out.print("A = ");
int A = Scan.nextInt();
System.out.print("B = ");
int B = Scan.nextInt();
System.out.print("N = ");
int N = Scan.nextInt();
double R = 0;
switch(N) {
case 1: R = A+B;
break;
case 2: R = A-B;
break;
case 3: R = A*B;
break;
case 4: R = A/B;
break;
}
System.out.println(R);
}
}
// PascalABC.Net
function dec2bin(n: integer): string;
begin
for var c:=31 downto 0 do
Result += IntToStr((N shr c) and 1);
end;
function count(b: string; c: char): integer;
begin
for var i:=1 to length(b) do
if b[i] = c then
Result += 1;
end;
begin
var N:=32;
var K:=3;
var sum:=0;
for var i:=1 to n do
if count(dec2bin(i), '1') = K then
begin
sum += 1;
end;
writeln(sum);
end.
Решение приложил.
(О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.)</span>