Создайте таблицу “Реки Европы ”, используя следующие данные длины (км) и площади бассейна (тыс. кв. км):
Волга 3688 и 1350;
Дунай 2850 и 817;
Рейн 1330 и 224;
Эльба 1150 и 148;
Висла 1090 и 198;
Луара 1020 и 120;
Урал 2530 и 220;
Дон 1870 и 422;
Сена 780 и 79;
Темза 340 и 15.
Определите самую длинную и самую короткую реку, подсчитайте суммарную площадь бассейнов рек, среднюю протяженность рек европейской части России. Создайте диаграмму, иллюстрирующую соотношение длины рек Европы.
program raf105;
var n,i:integer;
sum:real;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
sum += 1/i*i;
writeln('Сумма: ',sum);
end.
2. По условию которое могло быть на самом деле(1/(1*1)+1/(2*2)+1/(3*3)+...+1/(n*n), )program raf105;
var n,i:integer;
sum:real;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
sum += 1/(i*i);
writeln('Сумма: ',sum);
end.
Язык программирования PascalABC
const h = 15;
var arr: array [1..h] of integer;
i, sum, prod, min, max: integer;
begin
writeln('Исходный массив: ');
for i:=1 to h do
begin
arr[i]:=random(-100,100);
write(arr[i], ' ');
end;
writeln();
sum:=arr[1];
prod:=arr[1];
min:=arr[1];
max:=arr[1];
for i:=2 to h do
begin
sum += arr[i];
prod *= arr[i];
if arr[i] < min then
min:=arr[i];
if arr[i] > max then
max:=arr[i];
end;
writeln('Сумма: ', sum);
writeln('Произведение: ', prod);
writeln('Max: ', max);
writeln('Min: ', min);
end.