На 1 января текущего года на складе № 1 были следующие остатки товаров: парта – 100 шт. на сумму 200000 р.; стул ученический – 50 шт. на сумму 25000 р.; доска школьная – 10 шт. на сумму 100000 р.; скамья – 20 шт. на сумму 100000 р. Остатки на складе № 2 совпадают с остатками склада №1. В двух банках открыты расчетные счета (БИК 043735830 р/сч 40702810100000001995 и БИК 043735821 р/сч. Счет 40602810300000000027), на каждом из которых остаток денежных средств составляет 317 000 рублей. Остаток денежных средств в кассе 3170 рублей. Кредиторская задолженность перед поставщиком ООО «Марс» (ИНН 4501175961, КПП 450101001, адрес произвольный, БИК банка 046577795 р/сч 40702810862100000606) составляет 300 000 рублей. 12 января на склад № 1 оприходованы от ООО «Строй Плюс» (ИНН 4508008007, КПП 450801001, р/с 40702810532190000049, БИК 043735650) следующие товары (сопроводительные документы: накладная №1 и счетфактура №1): диван – 6 шт. на сумму 48 000 р. (в т. ч. НДС); шкаф – 3 шт. на сумму 21 000 р. (в т. ч. НДС); сейф – 2 шт. на сумму 100000 р. (в т.ч. НДС). На основании документа поступления товаров от 12.01 текущего года отразите 20.01 текущего года отгрузку всех поступивших товаров со склада №1с наценкой 80% ООО «Иванушка» (ИНН 4522003353, КПП 450201001, адрес произвольный, БИК банка 043735650 р/сч 40702810532190000049). Зарегистрируйте счет-фактуру №1 от 20.01 текущего года. По выпискам банков на расчетные счета «ООО ФИО студента»» поступила от покупателя сумма, полностью погашающая его задолженность: 26 января от «Иванушка» в ПАО БАНК "КУРГАН". 30 января произведен расчет с поставщиком ООО «Строй Плюс». 31 января погашен долг перед поставщиком ООО «Марс» 31 января сданы остатки денег из кассы в банк
x,y:real;
begin
Write('Введите координаты x и y точки: '); Readln(x,y);
Write('Точка с указанными координатами ');
if not ((y<=x) and (x<=2) and ((sqr(x)+sqr(y))>=4) and (y>=0)) then
Write('не ');
Writeln('принадлежит заштрихованной области.')
end.
Примеры выполнения программы:
Введите координаты x и y точки: 1.9 2.1
Точка с указанными координатами не принадлежит заштрихованной области.
Введите координаты x и y точки: 1.9 1.82
Точка с указанными координатами принадлежит заштрихованной области.
Введите координаты x и y точки: 1 -3
Точка с указанными координатами не принадлежит заштрихованной области.
mass1:array[1..1000] of integer;
mass2:array[1..1000] of integer;
begin
writeln('Введите кол-во элементов массива');
read(n);
r:=1;
for i:=1 to n do
begin
mass1[i]:=random(19)-10;
if i mod 2=0 then begin
mass2[r]:=mass1[i];
r:=r+1;
end;
end;
for i:=1 to r do
if mass2[r]>0 then c:=c+1 else b:=b+1;
writeln('Исходный массив');
for i:=1 to n do
write(mass1[i]:4);
writeln;
for i:=1 to r do
write(mass2[i]:4);
writeln;
writeln('Кол-во положительных элементов массива равно ',c,' а отрицательных равно ',b);
end.