Найти проищведение чётных чисел в диапозоне от 30 до 50. Паскаль. Для 9 класса (без...

Question

Найти проищведение чётных чисел в диапозоне от 30 до 50. Паскаль. Для 9 класса (без массивов)

Answer 1

1. Короткая современная версия

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  Write(Range(30,50,2).Aggregate(1.0,(p,i)->p*i))
end.

Результат:
3.6439069556736E+17

2. Школьная версия

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
var
  i:integer;
  p:real;
begin
  p:=1;
  i:=30;
  while i<=50 do begin<br>    p:=p*i;
    i:=i+2
    end;
  Write(p)
end.

Answer 2

Uses crt; var i : integer; p: integer; begin p := 1; for i := 30 to 50 do if((i mod 2) = 0) then p := p * i; writeln; writeln(' Результат: ', p); end.

Comments

Ничего, кроме переполнения при умножении целых и неверного ответа Вы не получите.