В 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 процентов. Посчитать штраф для каждой организации, средний штраф,
общее количество денег, которые банк собирается получить дополнительно.
Определить средний штраф бюджетных организаций.
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.
Дорогие друзья, Я Приц своё планеты и хочу пожелать вам только лучшего. Пусть вся планета будет цвести как розы...Я не житель вашей планеты, но все же Знайте без войны и разрушений ваша планета становиться лучше. Друзья это самое лучшее что есть у вас и думаю не каждый правильно знает это слово... Будьте добрее к другим, не засоряйте планету и цените жизнь.
Ну и на конец все что вас окружает создавали потомки целыми годами и веками, а я от лица другой планеты надеюсь что вы не испортит труды...( что то из этого можешь использовать... Хотя не особо по теме.)