Акт про списання основних засобів

						Номер документа				Дата складання
Відділ	Дебет		Кредит			Cума		Знос		Інвентарний номер
	Рахунок, субрахунок	Код аналітичного обліку		Рахунок, субрахунок	Код аналітичного обліку
1	2	3		4	5		6		7		8

Комісія, призначена наказом (розпорядженням) ______________ від _____________р.

№ _____ на підставі ______________________________________________________________

________________________________________________________________________________

здійснила огляд __________________________________________________________________

(найменування об`єкта)

У результаті огляду комісія встановила щодо об`єкта:

1. Надійшов в установу: “___” ______________ 19____ р.

2. Кількість ремонтів _______________ на суму __________ грн.

3. Маса об`єкту за паспортом: ____________________________

4. Наявність дорогоцінних металів: ________________________

5. Технічний стан та причина списання: __________________________________________

Код ____________________________________________________

Устаткування		Рік випуску (побудови)	Дата введення в експлуатацію, місяць, рік
Вид	Код
9	10	11	12

Висновок комісії: ­­­­­­­­­­­­­­­­­­­­­­_______________________________________________________________

_______________________________________________________________________________

Додаток: перелік документів, що додаються _________________________________________

Голова комісії заст. директора з ВР ___________

Члени комісії заст. директора з АГР ___________

гол. бухгалтер ___________

зав. лабораторією ___________

провідний фахівець ___________

Матеріально-відповідальна особа ___________

Задача 1

Дано ціле трьохзначне число а. Написати програму виведення кількості сотень та кількості одиниць цього числа.

program odin;

var

b:integer;

a:string;

begin

writeln('vedit troxznachne chuslo:');

readln(a);

writeln('sotni' ,a[1]);

writeln('odunuci' ,a[3]);

readln;

end.

Задача 2

Написати програму обчислення площі трикутника за трьома сторонами, користуючись формулою Герона ( , де - півпериметр трикутника ).

program dva;

var

a,b,c:real;

n:real;

p:real;

begin

writeln('vvedit storonu a,b,c:');

readln(a,b,c);

p:=((a+b+c)/2);

n:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('p=',p,'n=',n);

readln;

end.

Задача 3

Написати програму визначення найменшого з трьох чисел.

program tri;

var

a,b,c:integer;

begin

writeln('vedit chuslo');

readln(a,b,c);

if (a<b) and (a<c) then writeln(a);

if (b<a) and (b<c) then writeln(b);

if (c<a) and (c<b) then writeln(c);

readln;

end.

Задача 4.

Визначити за номером року, чи являється він високосним. Приклад отримання результату:

2000 – високосний рік

1900 – невисокосний рік.

Зауваження:

- Рік, номер якого ділиться на 4 – високосний;

- Рік, номер якого ділиться на 100 – не є високосним;

- Рік, номер якого ділиться на 400 високосний.

program choturu;

var

g:integer;

begin

readln(g);

if (g mod 4=0) and (g mod 100<>0)then writeln('god vusokosnuy')

else if g mod 400=0 then writeln('god vusokosnuy')

else writeln('god Ne vusokosnuy');

readln;

end.

Задача 5.

Написати програму планування закупки товару в магазині на суму, яка не перевищує заданої.