Выполните арифметические действия (умножение и деление) со следующей группой чисел: а)111111010012 и 1012; б)11111010111012 и 1112; результаты подсчетов переведите в десятичную систему счисления!
254
290
Ответы на вопрос:
Судя, по ключевым словам надо написать программу на языке pascal с использованием цикла с потусловием. алгоритм может быть такой: 1. создадим массив для хранения информации о количестве встретившихся цифр во введенном числе. 2. ввод самого числа, далее в цикле находим остаток от деления на 10 и увеличиваем значение элемента массива с индексом равным получившемуся остатку на 1. делим число нацело на десять. повторяем пока число не равно 0. 3. выводим результат. в массиве индекс элемента указывает на цифру числа, а значение элемента на количество этой цифры в числе. //расаlabc.net v3.1
var a: array[0..9]of integer;
n,i,m: integer;
begin
readln(n);
repeat
m: =n mod 10;
inc(a[m]);
n: =n div 10;
until n< =0;
for i : = 0 to 9 do begin
if a[i]> 1 then writeln('цифра: ',i,' количество: ', a[i]);
end;
end.
тестовый прогон:
1112333
цифра: 1 количество: 3
цифра: 3 количество: 3
Популярно: Информатика
-
пипиша23.01.2023 16:14
-
daniilzagora21.06.2022 11:19
-
svetamax7006.05.2023 09:42
-
Dima2006Dima24.03.2022 19:12
-
Allison511.06.2023 01:19
-
kutluyulova0421.09.2021 08:38
-
медведь4425.02.2022 19:42
-
olgakoryakina13.05.2021 03:59
-
дима2281905.11.2022 04:55
-
akozhametova01.03.2020 17:21