Program n_1; var a,i,n:integer; begin writeln('Введите количество натуральных чисел: '); readln(n); a:=1; for i:=1 to n do begin if i mod 2 <> 0 then a:=a*i end; write('Произведение нечётных чисел данного диапазона равно: ', a) end.
9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.
Procedure ABC(A:integer); Var i:integer; Begin For i:= 100 to 999 do if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then Write(i,' '); End; Var A:integer; Begin Write('Введите целое число: '); ReadLn(A); ABC(A) End.
9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.
Procedure ABC(A:integer); Var i:integer; Begin For i:= 100 to 999 do if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then Write(i,' '); End; Var A:integer; Begin Write('Введите целое число: '); ReadLn(A); ABC(A) End.
var a,i,n:integer;
begin
writeln('Введите количество натуральных чисел: ');
readln(n);
a:=1;
for i:=1 to n do
begin
if i mod 2 <> 0
then a:=a*i
end;
write('Произведение нечётных чисел данного диапазона равно: ', a)
end.