Регистрация
Angel1509kl
02.11.2020 11:01
Информатика
Есть ответ 👍

Найти все трехзначные числа,сумма которых равна их произведению паскаль

295
499
Посмотреть ответы 3

Ответы на вопрос:

serega20467
serega20467
4,7(6 оценок)
Аналогично begin   for var a : = 100 to 999 do begin     for var b : = 100 to 999 do begin       if a * b = a + b then writeln(a,'-', b);     end;   end; end.
Astr4lis
Astr4lis
4,5(47 оценок)
Var   a,b,i,n: integer;     begin       for i: =100 to 999 do         if ((i mod 10) + (i div 10) + (i div 100)) = ((i mod 10) * (i div 10) * (i div 100)) then           begin         write(i,' ');                 a: =a+1;                 end;         if a=0 then         writeln('нет таких чисел');         end. {программа работает, но чисел таких нет}
969758676
969758676
4,6(45 оценок)

ответ:

program sinx;

var

  n, i: integer;

  x, p: double;

begin

  write ('n = ');

  readln (n);

  write ('x = ');

  readln (x);

  p : = 1;

  for i : = 1 to n do begin

    p : = p * (i + sin (x));

  end;

  writeln ('произведение = ', p : 20 : 10);

  readln;

end.

Популярно: Информатика