С Microsoft Excel найти решение следующей задачи: Магазин строительных материалов производит уценку товара. Если количество товара на складе не превышает 10 комплектов, то товар уценивается в 3 раза. Если количество товара больше 10 комплектов, но не больше 15, цена товара уменьшается на 10%. Получить ведомость уценки товаров.
Решение с использование длинной арифметики. var i, j, n, len, rem: integer; a: array[1..200] of byte; begin write('Введите число: '); read(n); len := 1; a[1] := 1; for i := n + 1 to 99 {100} do begin for j := 1 to len do begin rem := a[j] * i + rem; a[j] := rem mod 10; rem := rem div 10; end; while rem > 0 do begin inc(len); a[len] := rem mod 10; rem := rem div 10; end; end; writeln('Произведение чисел из интервала (', n, '; 100): '); for i := len downto 1 do write(a[i]); end. Пример работы программы: Введите число: 1 Произведение чисел из интервала (1; 100): 1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000
program fofgogjoj; var n,i : integer; a,p : real; begin Writeln('Введите число.'); Readln(a); Writeln('Введите степень'); Readln(n); p:=1; for i:=1 to n do begin p:=p*a; end; if a<0 then p:=1/p; Writeln(p :6:3); readln; end.
FOR16
program fofgogjoj; var i, n: integer; a, p: real; begin Writeln('Введите число:'); Write(' a = '); Readln(a); Writeln('Введите показатель степени (n > 0):'); Write(' N = '); Readln(N); Writeln('Все степени числа ', a, ' от 1 до ', n, ':'); p:= 1; for i:=1 to n do begin p:= p*a; Writeln(' ', a, ' в степени ', i, ': ', p:0:2) end end.
надо цену гипсокартона поделить на количечтво так же само из остальним