Найдите произведение чётную чисел от 16. пока чисел не станет 10. языком паскаля

yaremhykv04 yaremhykv04    2   16.09.2019 19:10    1

Ответы
Djeka11 Djeka11  07.10.2020 20:20
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  Println(Range(16,34,2).Aggregate(biginteger(1),(a,b)->a*b));
end.

Результат:
72266652057600 
ПОКАЗАТЬ ОТВЕТЫ
kjkszpjkangaroo kjkszpjkangaroo  07.10.2020 20:20
Var
  i,k:integer;
  p:real;
 
begin
  i:=16; k:=1; p:=i;
  while k<>10 do begin
    i:=i+2; k:=k+1; p:=p*i
    end;
  Writeln(p)
end.

Результат
72266652057600
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика