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

В Exel
задание 2

Создайте таблицу “Озера Европы”, используя следующие данные по
площади (кв. км) и наибольшей глубине (м): Ладожское 17 700 и 225;
Онежское 9510 и 110; Каспийское море 371 000 и 995; Венерн 5550 и 100;
Чудское с Псковским 3560 и 14; Балатон 591 и 11; Женевское 581 и 310;
Веттерн 1900 и 119; Боденское 538 и 252; Меларен 1140 и 64. Определите
самое большое и самое маленькое по площади озеро, самое глубокое и самое
мелкое озеро.

3 задание

Создайте таблицу “Реки Европы”, используя следующие данные длины (км)
и площади бассейна (тыс. кв. км): Волга 3688 и 1350; Дунай 2850 и 817; Рейн
1330 и 224; Эльба 1150 и 148; Висла 1090 и 198; Луара 1020 и 120; Урал 2530
и 220; Дон 1870 и 422; Сена 780 и 79; Темза 340 и 15. Определите самую
длинную и самую короткую реку, подсчитайте суммарную площадь
бассейнов рек, среднюю протяженность рек европейской части России.

4 задание

В банке производится учет своевременности выплат кредитов, выданных
нескольким организациям. Известна сумма кредита и сумма, уже
выплаченная организацией. Для должников установлены штрафные санкции:
если фирма выплатила кредит более чем на 70 процентов, то штраф составит
10 процентов от суммы задолженности, в противном случае штраф составит
15 процентов. Посчитать штраф для каждой организации, средний штраф,
общее количество денег, которые банк собирается получить дополнительно.
Определить средний штраф бюджетных организаций.

Показать ответ
Ответ:
BlackDiamondIce
BlackDiamondIce
24.05.2022 17:12
Var a,d,count,i:integer;
function CountDay(a:integer):integer;
begin
if (a>=1) then countday:=31;
if (a>=2) then countday:=28;
if (a>=3) then countday:=31;
if (a>=4) then countday:=30;
if (a>=5) then countday:=31;
if (a>=6) then countday:=30;
if (a>=7) then countday:=31;
if (a>=8) then countday:=31;
if (a>=9) then countday:=30;
if (a>=10) then countday:=31;
if (a>=11) then countday:=30;
if (a>=12) then countday:=31;
end;
begin
count:=0;
write('Введите День: ');
readln(d);
write('Введите Месяц: ');
readln(a);
if (a<=0)or(a>12)or(d<=0)or(d>countday(a)) then
writeln('Ошшибка в данных! ')
else
begin
for i:=a to 12 do
count:=count+countday(i);
count:=count-d;
writeln('До нового года осталось ',count,' дней');
end;
end.
0,0(0 оценок)
Ответ:
SherlockAlya
SherlockAlya
16.08.2021 02:53

Дорогие друзья, Я Приц своё планеты и хочу пожелать вам только лучшего. Пусть вся планета будет цвести как розы...Я не житель вашей планеты, но все же Знайте без войны и разрушений ваша планета становиться лучше. Друзья это самое лучшее что есть у вас и думаю не каждый правильно знает это слово... Будьте добрее к другим, не засоряйте планету и цените жизнь.

Ну и на конец все что вас окружает создавали потомки целыми годами и веками, а я от лица другой планеты надеюсь что вы не испортит труды...( что то из этого можешь использовать... Хотя не особо по теме.)

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