Var a:array[1..100] of integer;
n:integer;
begin
read(n);
for I:1 to n do
begin
a[i]:=0;
end;
end.
#include <stdio.h>#include <math.h>using namespace std;int main() { size_t n = 2; // Уадяемая цифра int number = 2346224; // Задавай число printf("Входное число: %d\n", number); int sig = number >= 0, temp = number; number = 0; size_t i = 0; while (temp) { int k = temp % 10; if (n != k) { number += (k)* pow(10, i); i++; } temp /= 10; } number *= sig; printf("Результат: %d\n", number); system("pause"); return 0;}
<span>Информационный вес одного символа - 4 бита.</span>