Question

Определить число единиц во введенном числе. Паскаль АБС

Answer 1

Var
  s: string;
  i, k: integer;

begin
  Write('Введите произвольное число: '); Readln(s);
  k := 0;
  for i := 1 to length(s) do
    if s[i] = '1' then k := k + 1;
  Writeln('Количество единиц в числе равно ', k);
end.

Тестовое решение:
Введите произвольное число: -156153451.4234111322
Количество единиц в числе равно 6

Answer 2

Для определения числа единиц во введенном числе в языке программирования Паскаль можно использовать следующий алгоритм:

1. Объявляем переменные: - num: целое число (введенное число); - count: целое число (количество единиц).

2. Инициализируем переменную count значением 0.

3. Считываем число num с помощью функции ReadLn.

4. Пока число num не равно нулю, выполняем следующие действия: - Если последняя цифра числа num равна 1, увеличиваем значение переменной count на 1; - Делим число num на 10 с помощью операции деления нацело (div); - Переходим к следующей итерации цикла.

5. Выводим значение переменной count с помощью функции WriteLn.

Пример кода на языке Паскаль:

program CountOnes;
var
  num, count: integer;
begin
  count := 0;

WriteLn('Введите число:');
  ReadLn(num);

while num <> 0 do
  begin
    if num mod 10 = 1 then
      count := count + 1;
    num := num div 10;
  end;

WriteLn('Количество единиц в числе:', count);
end.

После запуска программы она запросит у пользователя ввести число. Затем программа подсчитает количество единиц в этом числе и выведет результат на экран.

Answer 3

Для определения числа единиц в введенном числе в Паскале можно использовать следующий алгоритм:

1. Объявить переменную "число" типа integer и присвоить ей значение введенного числа. 2. Объявить переменную "единицы" типа integer и присвоить ей значение 0. Эта переменная будет счетчиком числа единиц. 3. Использовать цикл while, пока число не станет равным 0: - Вычислить остаток от деления числа на 10 и сохранить его в переменной "остаток". - Если "остаток" равен 1, увеличить значение переменной "единицы" на 1. - Разделить число на 10 и сохранить результат в переменной "число". 4. Вывести значение переменной "единицы" - это и будет число единиц в введенном числе.

Пример кода на языке Паскаль:

program CountOnes;

var
  число, единицы, остаток: integer;

begin
  writeln('Введите число:');
  readln(число);
  
  единицы := 0;
  
  while число <> 0 do
  begin
    остаток := число mod 10;
    if остаток = 1 then
      единицы := единицы + 1;
    число := число div 10;
  end;
  
  writeln('Число единиц в введенном числе:', единицы);
end.

Например, если введенное число равно 1234567891, то программа выведет "Число единиц в введенном числе: 2", так как в этом числе есть две единицы.