#include "iostream"
#include "stdlib.h"
#include "locale.h"
using namespace std;
int main(){
setlocale(LC_ALL,"rus");
int a, b;
cout << "Введите число a: "; cin >> a;
cout << "Введите число b: "; cin >> b;
if(b != 0){
cout << "Частное: " << a/b << endl;
}else cout <<"Ошибка! Деление на 0!" << endl;
system("pause");
return 0;
}
2^5 = 32
Вагон №32 закодирован 11111 (5 бит)
Вагон №7 111 (3 бита)
Var x,y,z,f:integer;
begin
write('Введите число: ');
readln(x);
while x>0 do
begin
y:=x mod 10;
z:=x div 10;
while z>0 do
begin
if (z mod 10)=y then f:=1;
z:=z div 10;
end;
x:=x div 10;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
<span>end.
Если использовать строковые ф-ии, то программа будет проще:
var
i,k,f:integer;
s,t:string;
begin
write('Введите число: ');
readln(s);
k:=length(s);
for i:= 1 to k do
begin
t:=copy(s,i+1,k-i+1);
if pos(s[i],t)>=1 then f:=1;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
end.</span>
<span>Этот принцип впервые применила фирма IBM, что повлияло на ускорение темпов развития вычислительной техники.</span>