В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
7klassnik1
7klassnik1
15.08.2021 10:38 •  Информатика

Задача 5. Составить программу расчета коэффициента обеспеченности запасов и затрат источниками средств по формуле: где СКоб − собственный оборотный капитал, руб.; КРтм.ц − кредиты банков под товарно-материальные ценности, руб.; З − запасы и затраты, руб. Кредиты банков под материально-товарные ценности изменяются в пределах от 6000 до 7000 тыс. руб. с шагом 100 тыс. руб. (СКоб = 12000 тыс. руб., З = 18500 тыс. руб.).


Задача 5. Составить программу расчета коэффициента обеспеченности запасов и затрат источниками средс

Показать ответ
Ответ:
dianka2712
dianka2712
09.07.2020 09:18

я надеюсь ты не будешь против, если я буду кидать всю программу

пишу на python

                       №1

#array заполнен по условию

even = 0

odd = 0

for elem in array:

        if elem % 2 == 0:

                 even += 1

        else:

                 odd += 1

print(even, odd)

                      №2

a)

Red Blue Yellow Purple

Red Blue Purple Yellow

Blue Red Purple Yellow

б)

for i in range(len(array)):

              for j in range(len(array) - 1):

                             if array[j] > array[j + 1]:

                                      array[j], array[j + 1] = array[j + 1], array[j]

print(*array)

                              №3

k = int(input())

array = array[:k] + array[k + 1:]

print(array)

0,0(0 оценок)
Ответ:
sabinanuray1810
sabinanuray1810
16.03.2020 18:16

Створіть проект, у якому вводяться значення елементів табличної величини із 7 цілих чисел у багаторядковому текстовому полі, обчислюється сума від’ємних з них і результат виводиться в напис. Збережіть проект у папці з іменем Завдання 6.2.1, створеній у вашій папці.

procedure TForm1.Button1Click (Sender: TObject);

var a: array [1..8] of integer;

i, s: integer;

begin

for i: = 1 to 7 do a[i]:= StrToInt(Memo1.Lines[i - 1]);

s:= 0;

for i:= 1 to 7 do if a[i] < 0 then s:= s + a[i];

Label1. Caption: = IntToStr(s);

end;

2. Створіть проект, у якому вводяться значення елементів табличної величини з 8 дійсних чисел у багаторядковому текстовому полі, визначається кількість з них, які більші за 5, і результат виводиться в напис. Збережіть проект у папці з іменем Завдання 6.2.2, створеній у вашій папці.

procedure TForm1.Button1Click (Sender: TObject);

var a: array [1..8] of real;

i, k: integer;

begin

for i:= 1 to 8 do a[i]:= StrToFloat(Memo1.Lines[i - 1]);

k:= 0;

for i:= 1 to 8 do

if a[i] > 5 then k:= k + 1;

Label 1.Caption:= IntToStr(k);

end;

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота