//PascalABC.NET
var
m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
repeat
m := ReadlnInteger('Введите 0 или положительное число ')
until m >= 0;
// Подсчет количества повторяющихся цифр
while m > 0 do begin
a[m mod 10] += 1;
m := m div 10
end;
// Найдем в массиве повторы от 2 и более раз?
if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
writeln('Нет повторов.')
else begin
// Повторы есть.
write('Повторяются: ');
// Выведем повторяющиеся цифры
for var i := 0 to 9 do
if a[i] > 1 then write(i, ' ')
end
end.
const - служебное слово задающее программе константу, то есть неизменяемое значение.
Оно задаётся следующим образом:
const
Pi = 3.14;
Name = 'Михаил'
a = 123;
Cлужебное слово CONST в программе на языке PASCAL фиксирует начало раздела программы содержащего <em>константы.</em>
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int n;
cin>>n;
float s=0;
for (int i=0;i<n;i+=2)
s=s+1.0/pow(2,i)-1.0/pow(2,i+1);
cout<<s;
return 0;
}
1)
CF(16) = 1100 1111(2); 321(8) = 11 010 001(2)
x = 1101 0000(2)
2)
B5(16) = 1011 0101(2); 267(8) = 10 110 111(2)
x = 1011 0110(2)
1) бит; байт; килобайт; мегабайт; терабайт
2)11 букв*8 бит=88 бит
3) 1024 кб > 10000 бит
2мб > 2000байт
1кб=8192бита
4) 251:2=125 остаток 1
125:2=62 остаток 1
62:2=31 остаток 0
31:2=15 остаток 1
15:2=7 остаток 1
7:2=3 остаток 1
3:2=1 остаток 1
Остается 1. Записываем 1 и остатки в обратном порядке 11111011
77:2=38 остаток 1
38:2=19 остаток 0
19:2=9 остаток 1
9:2=4 остаток 1
4:2=2 остаток 0
2:2=1 остаток 0
Остается 1. Записываем 1 и остатки в обратном порядке 1001101
