Найти сумму чисел ряда 1,2,3,... ,используя функцию.
Program Summa;
uses crt;
var n:integer;
function Sum(m: integer): integer;
var i,s: integer;
begin
s:=0;
for i:=1 to m do s:=s+i;
Sum:=s
end;
Begin
clrscr;
write('До какого числа суммировать? :'); readln(n);
write('Сумма чисел ряда S=',Sum(n)) { -вызов функции Sum с парам.}
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Изменить программу так, чтобы была найдена сумма чисел от m до числа n, вводимых с
клавиатуры.
Задание с функции НУЖНО

Первая:

Var
A,R:real;
Begin
WriteLn('Введи длину сторону квадрата');
ReadLn(A);
WriteLn('Введи радиус круга');
ReadLn(R);
if Pi*R*R>A*A then WriteLn('Площадь круга больше')
else if Pi*R*R<A*A then WriteLn('Площадь квадрата больше')
else WriteLn('Площади фигур равны');
End.

Вторая:

Var
m1,m2,V1,V2:real;
Begin
Write('m1 = ');ReadLn(m1);
Write('m2 = ');ReadLn(m2);
Write('V1 = ');ReadLn(V1);
Write('V2 = ');ReadLn(V2);
if m1/V1<m2/V2 then WriteLn('Плотность первого тела меньше')
else if m1/V1>m2/V2 then WriteLn('Плотность второго тела меньше')
else WriteLn('Плотности равны')
End.

#include <iostream>
using namespace std;
int main()
{
int x,y,c1,c2,c3,c4 = 0;
for (int i = 0; i <10; ++i) {
cin >> x >> y;
if (x>0 and y>0) c1=c1+1;
if (x<0 and y>0) c2=c2+1;
if (x<0 and y<0) c3=c3+1;
if (x>0 and y<0) c4=c4+1;
}
if (c1 > c2 and c1 > c3 and c1 > c4) cout << "1-я четверть\n";
if (c2 > c1 and c2 > c3 and c2 > c4) cout << "2-я четверть\n";
if (c3 > c2 and c3 > c1 and c3 > c4) cout << "3-я четверть\n";
if (c4 > c2 and c4 > c3 and c4 > c1) cout << "4-я четверть\n";
}