Question

Pascal Дано натуральне число n. a) Скільки цифр в числі n? b) Скільки парних цифр в числі n

Answer 1

Var n:String;
var count:Integer;
var a:array of char;
begin
WriteLn('Введите число n:');
Read(n);
a:= n.ToCharArray();
for var i:= 0 to a.Length-1 do
if strtoint(a[i]) mod 2 = 0 then
count+= 1;
WriteLn('Кол-во цифр в числе: '+a.Length);
WriteLn('Кол-во чётных цифр в числе: '+count);
end.

Answer 2

Для знаходження кількості цифр і парних цифр в натуральному числі n, можна використати мову програмування, таку як Pascal. Ось два приклади реалізації цих завдань у Pascal:

a) Знаходження кількості цифр в числі n:

pascalCopy code
program CountDigits;

var
  n, count: Integer;

begin
  Write('Введіть натуральне число n: ');
  Readln(n);

  count := 0;
  while n > 0 do
  begin
    n := n div 10;
    count := count + 1;
  end;

  WriteLn('Кількість цифр в числі n: ', count);
end.

b) Знаходження кількості парних цифр в числі n:

pascalCopy code
program CountEvenDigits;

var
  n, count: Integer;
  digit: Integer;

begin
  Write('Введіть натуральне число n: ');
  Readln(n);

  count := 0;
  while n > 0 do
  begin
    digit := n mod 10;
    if digit mod 2 = 0 then
      count := count + 1;
    n := n div 10;
  end;

  WriteLn('Кількість парних цифр в числі n: ', count);
end.

Програма спочатку зчитує число n з вхідного потоку. Далі у циклі while використовується операція ділення із залишком для отримання кожної цифри числа n. Для підрахунку парних цифр ми перевіряємо, чи є залишок від ділення на 2 дорівнює 0, що свідчить про те, що цифра є парною. Кількість цифр або парних цифр виводиться на екран.

Зверніть увагу, що в обох програмах вважається, що n - це натуральне число, тобто додатне ціле число (1, 2, 3, ...).