Составьте программу которая вычисляет произведение нечетных чисел от 1 до 20

mila2086 mila2086    1   07.10.2019 20:50    1

Ответы
nikitinaani19 nikitinaani19  10.10.2020 02:32

Program n_1;

var s,i:int64;

begin

   s:=1;

   for i:=2 to 20 do

       if i mod 2 = 1 then s:=s*i;

   writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
olgap51olga olgap51olga  10.10.2020 02:32

Представлю два варианта:

С использованием PascalABC.NETС использованием обычного Pascal

Версия PascalABC.NET - 3.4.2, сборка 1978 (12.02.2019)


Составьте программу которая вычисляет произведение нечетных чисел от 1 до 20
Составьте программу которая вычисляет произведение нечетных чисел от 1 до 20
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика