Question

БУДЬ ЛАСКА ДОПОМОЖІТЬ Паскаль: вывести все счастливые числа с промежутка от а до б(а и б нужно вводить в программе) Ось українською: вивести усі щасливі числа на проміжку від а до б

Answer 1

Удачи в сдаче! Только разберись в коде обязательно

var

 m : array of integer;

 a, b, i, j : integer;

 

 procedure DelEl(ind:integer);

 var

   t:integer;

 begin

   for t := ind to length(m)-2 do

     m[t]:=m[t+1];

   setlength(m, length(m)-1);

  end;

 

 procedure ClearZ;

 var

   c:integer;

 begin

   c:=0;

   while c < length(m) do

     if m[c]=0 then

       DelEl(c)

     else

       inc(c)  

 end;

 

 procedure RemElem(p:integer);

 var

   step:integer;

 begin

   step:=m[p];

   j:=step-1;

   while j < length(m) do begin

     m[j]:=0;

     j:=j+step;

   end;  

 end;

 

begin

 write('Введите a :');

 readln(a);

 write('Введите b :');

 readln(b);

 

 (*заполним массив натуральными числами в диапазоне*)

 SetLength(m, b);

 for i := 1 to b do

   m[i-1]:=i;

 

 (*исключим все чётные числа*)

 RemElem(1);

 ClearZ;

   

 (*проходим решетом по массиву*)  

 i:=1;  

 while i<length(m) do begin

   RemElem(i);

   ClearZ;

   inc(i);

 end;

 

 (*печатаем счастливые числа в диапазоне*)

 for i:= 0 to length(m)-1 do

   if m[i]>=a then

     write(m[i], ' ');

end.

Answer 2

Щасливі числа - це числа, у яких сума квадратів цифр у своєму десятковому запису дорівнює 1. Давайте напишемо програму на Pascal, яка виведе всі щасливі числа в заданому проміжку від `а` до `б`. Ось приклад коду:

program HappyNumbers;

uses
  SysUtils;

function IsHappyNumber(n: Integer): Boolean;
var
  sum, digit: Integer;
begin
  sum := 0;
  while n > 0 do
  begin
    digit := n mod 10;
    sum := sum + digit * digit;
    n := n div 10;
  end;
  Result := (sum = 1);
end;

procedure PrintHappyNumbers(a, b: Integer);
var
  i: Integer;
begin
  for i := a to b do
  begin
    if IsHappyNumber(i) then
      WriteLn(i);
  end;
end;

var
  a, b: Integer;
begin
  Write('Введіть значення a: ');
  ReadLn(a);
  Write('Введіть значення b: ');
  ReadLn(b);
  WriteLn('Щасливі числа на проміжку від ', a, ' до ', b, ':');
  PrintHappyNumbers(a, b);
end.

Цей код містить дві функції: `IsHappyNumber` та `PrintHappyNumbers`. Функція `IsHappyNumber` перевіряє, чи є число щасливим, обчислюючи суму квадратів цифр у його десятковому записі. Функція `PrintHappyNumbers` виводить всі щасливі числа в заданому проміжку.

Введіть значення `a` та `b` у програмі, і вона виведе всі щасливі числа на проміжку від `a` до `b`.

Наприклад, якщо ви введете `a = 1` та `b = 100`, програма виведе наступні щасливі числа: ``` 1 7 10 13 19 23 28 31 32 44 49 68 70 79 82 86 91 94 97 ```

Будь ласка, спробуйте цей код у своїй Pascal-середовищі та перевірте його працездатність.