Из Паскаля в си

@chipallaxa · Регистрация: 13.06.2022

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста перевести с Паскаля в си.

Pascal

Program SummaFakt;
const maxn=2 540 159;
type interval=0..9; {цифры}
var fcif:array [interval] of integer;
{факториал цифр искомых чисел}
 k: interval;
 n, {пробное число}
 s, {сумма факториалов цифр}
 nn:integer; {десятки}
 function sumf (n:integer):integer;
{сумма факториалов цифр числа n}
 var summa:integer;
 begin
 summa:=0;
 repeat
 summa:=summa+fcif[n mod 10];
 n:=n div 10
 until n=0;
 sumf:=summa
 end;
begin
 fcif[0]:=1; {запоминаются факториалы цифр}
 for k:=1 to 9 do
 fcif[k]:=fcif[k-1]*k;
 for nn:=0 to maxn div 10 do {цикл для десяти чисел}
 begin
 n:=nn*10;
 s:=sumf(n);
 repeat
 if s=n then writeln(n);
 n:=n+1;
{корректируется сумма факториалов цифр}
 s:=s-fcif[(n-1) mod 10]+fcif[n mod 10]
 until (s>n) or {в десятке не удается найти искомых чисел}
 (n mod 10=0) {закончился десяток}
 end
end.

Рыжий Лис · 10.01.2023, 09:57

C

int fcif[10];
 
int main() {
    fcif[0] = 1;  // запоминаются факториалы цифр
    for (size_t i = 1; i < 10; i++) {
        fcif[i] = fcif[i - 1] * i;
    }

@bormant · 12.01.2023, 02:50

Что-то такое:

C

#include <stdio.h>
 
int fcif[10];
void sumf_init() {
  fcif[0]=1; for (int i=1; i<10; ++i) fcif[i]=i*fcif[i-1];
}
int sumf(int n) {
  int r=0; do { r+=fcif[n%10]; n/=10; } while (n!=0);
  return r;
}
 
int main()
{
  sumf_init();
#define maxn 2540159
  for (int nn=0; nn<=maxn/10; ++nn) {
    int n=nn*10, s=sumf(n);
    do {
      if (s==n) printf("%d\n",n);
      s-=fcif[n%10];
      s+=fcif[++n%10];
    } while (s<=n && n%10);
  }
  return 0;
}

Добавлено через 3 минуты
Сперва написал

C

20	s-=fcif[n%10]-fcif[++n%10];

это работало, но это неправильно, поскольку не гарантируется, что fcif[n%10] будет вычислено раньше fcif[++n%10].

Добавлено через 12 минут
Или как в оригинале

C

20	++n; s-=fcif[(n-1)%10]-fcif[n%10];

	12.01.2023, 02:50

Опции темы