begin i := 11; p := 1; while(i <= 99) do begin p := p * i; i := i + 2 end; Writeln('Произведение всех двухзначных натуральных нечетных чисел: ', p) end.
Результаты решения: Произведение всех двухзначных натуральных нечетных чисел: 2.88401284629707E+75
Var i, p: longint; begin p := 1; for i:=10 to 99 do if (i mod 2)<>0 then p := p * i; Writeln('Произведение всех двухзначных натуральных нечетных чисел: ', p) end.
var a : array [1..4] of char; i, k, l, m, N : byte; begin a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О'; for i := 1 to 3 do begin for k := 1 to 4 do begin for l := 1 to 4 do begin for m := 1 to 4 do begin if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end; end; end; end; end; writeln('Всего: ', N) end.
var a : array [1..4] of char; i, k, l, m, N : byte; begin a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О'; for i := 1 to 3 do begin for k := 1 to 4 do begin for l := 1 to 4 do begin for m := 1 to 4 do begin if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end; end; end; end; end; writeln('Всего: ', N) end.
i: integer;
p: double;
begin
i := 11; p := 1;
while(i <= 99) do
begin p := p * i; i := i + 2 end;
Writeln('Произведение всех двухзначных натуральных нечетных чисел: ', p)
end.
Результаты решения:
Произведение всех двухзначных натуральных нечетных чисел: 2.88401284629707E+75
Точный ответ: 2884012846297068257122447878731130828879149556133125305538972299939794921875