Бит может принимать значения 0 или 1.(2)
8 бит - длинна строки.(8)
Следовательно различных комбинаций может быть: 2^8=256
Program z1;
var a:array[1..100] of integer;
i,j,n:byte;
begin
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(900)+100;
end;
for j:=0 to 9 do begin
for i:=1 to n do begin
if ((a[i] div 10) mod 10)=j then begin
write(a[i],' ')
end
end
end;
readln
end.<span>
</span>
#include <iostream>#include <stdio.h>#include <stdlib.h>#include <locale.h>using namespace std;/* run this program using the console pauser or add your own getch, system("pause") or input loop */
int main(int argc, char** argv) { setlocale(LC_ALL,"rus"); int n; cout<<"Enter N : "; cin>>n; switch (n) { case 1: cout<<"Январь."; break; case 2: cout<<"Февраль."; break; case 3: cout<<"Март."; break; case 4: cout<<"Апрель."; break; case 5: cout<<"Май."; break; case 6: cout<<"Июнь."; break; case 7: cout<<"Июль."; break; case 8: cout<<"Август."; break; case 9: cout<<"Сентябрь."; break; case 10: cout<<"Октябрь."; break; case 11: cout<<"Ноябрь."; break; case 12: cout<<"Декабрь."; break; default: break;} return 0;}
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
if Abs(n).Between(100,999) then begin
Writeln('Число трехзначное');
if n.IsOdd then Writeln('Число нечетное')
else Writeln('Число четное');
if n div 100 = n mod 10 then Writeln('Его первая и последняя цифры равны')
else Writeln('Его первая и последняя цифры не равны')
end
else Writeln('Число не трехзначное')
end.
<u>Примеры</u>
n= 452
Число трехзначное
Число четное
Его первая и последняя цифры не равны
n= 313
Число трехзначное
Число нечетное
Его первая и последняя цифры равны
n= 18
Число не трехзначное