clrscr; // очищаем экран write('Введите число n:'); readln(n); // ввод данных
write('Введите цифру а: '); readln(a); // ввод данных x:=1; i:=0; i-счётчик цифр а while (n<>0) do // Пока n не стало равным нулю begin x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы) end; writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)'); readkey; // Пауза до нажатия на любую клавишу
Число одинарной точности согласно стандарту IEEE 754 представляется следующим образом: 31-й бит - знаковый разряд (0 для положительных, 1 для отрицательных) биты с 30 по 23 - порядок остальные биты (с 22 до 0) - дробная часть нормализованной мантиссы 1 10000011 00001110000000000000000 Знак: 1 Число отрицательное Порядок: 10000011 Показатель степени 10000011_2 - 01111111_2 = 00000100_2 = 4_10 Мантисса: 00001110 00000000 0000000 1,0000111_2 = 2^0 + 2^-5 + 2^-6 + 2^-7
Август Кекуле Август Кекуле - немецкий химик мирового значения, открыл химическую формулу бензола. Его избрали почетным членом многие академии мира, с его мнением считались не только ученые, но и промышленники. Просмотров: 9437 Адольф фон Байер Адольф фон Байер - немецкий химик, анализируя обратный процесс, получение индиго путем окисления изатина, впервые сумел синтезировать индиго, сделав, таким образом, возможным его промышленное производство. Просмотров: 6398 Александр Михайлович Бутлеров Александр Михайлович Бутлеров - русский химик, открытая им теория химического строения служит теперь принципиальной основой всех без исключения современных разделов синтетической химии. Просмотров: 11279 Альфред Вернер Альфред Вернер - немецкий химик, открыл оптически активные неорганические изомеры - соединения кобальта, хрома, железа. Это было крупным успехом дальнейшего развития неорганической химии. Просмотров: 6849 Антуан Лоран Лавуазье Антуан Лоран Лавуазье — французский химик, объяснил факт горения, — целый мир явлений окисления, происходящих всегда и всюду — в воздухе, земле, организмах — во всей мертвой и живой природе. Просмотров: 8849
Program CountA;
Uses Crt;
var a,n,x,i:integer;
begin
clrscr; // очищаем экран
write('Введите число n:');
readln(n); // ввод данных
write('Введите цифру а: ');
readln(a); // ввод данных
x:=1; i:=0; i-счётчик цифр а
while (n<>0) do // Пока n не стало равным нулю
begin
x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа
if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1
n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу
end.