В 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 процентов. Посчитать штраф для каждой организации, средний штраф,
общее количество денег, которые банк собирается получить дополнительно.
Определить средний штраф бюджетных организаций.
1)
#include <iostream>
using namespace std;
int main ()
{
int k = 0;
int n, m, a[100][100];
cin >> n >> m;
for (int i = 0; i < n; i++){
for (int j = 0; j < m; j++){
cin >> a[i][j];
}
}
for (int i = 0; i < n; i++){
for (int j = 0; j < m; j++){
if(a[i][j]==a[j][i]){
k++;
}
}
}
cout<<"Количество элементов a[i][j] = a[j][i], " << k << endl;
}
2)
#include <iostream>
using namespace std;
int main ()
{
int a[100], n, m,s = 0;
cout << "Введите количество элементов массива" << endl;
cin >> n;
cout << "Введите заданное число" << endl;
cin >> m;
for(int i = 0; i<n;i++){
cout << "Введите " << i+1 << " элемент массива" << endl;
cin >> a[i];
}
for(int i = 0; i<n;i++){
if(a[i] > m){
s+=a[i];
}
}
cout << "Сумма элементов, больших заданного числа "<< s << endl;
}
Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.