1. вычислить и вывести на экран первые десять членов последовательности, заданной формулами n-го члена: xn = n²+5. 2. известны фамилия, стоимость работы, время выполнения работы. если работа выполнена раньше, чем за 15 дней,
исполнитель поощряется денежной суммой в размере 10% от стоимости работы. если работа выполнена с опозданием, то исполнителю начисляется пеня размером в 0,5% от стоимости работ за каждый день просрочки. рассчитать итоговые
суммы выплат исполнителям работ на момент их завершения. 3. известна норма выработки деталей и фактическая выработка рабочего. оплата труда рабочему за 1деталь - х руб, за 1деталь сверх нормы надбавка y%. рассчитать величину
оплаты нужна.
№1. программа на Паскале
program xxx;
var n : integer;
x : array[1..10] of integer;
begin
for n:=1 to 10 do
x[n]:=sqr(n) + 5;
wreteln('Последовательность Х:')
for n:=1 to 10 do
write(x[i]);
readln
end.
1.
var n:integer;
begin
cls;
for n:=1 to 10 do begin
write('n=',sqr(n)+5,' ');
end;
end.
Решить на Паскале?