Var x1,y1,x2,y2,d1,d2:real;
begin
write ('X1 = ');
readln (x1);
write ('Y1 = ');
readln (y1);
write ('X2 = ');
readln (x2);
write ('Y2 = ');
readln (y2);
d1:=sqrt(sqr(x1)+sqr(y1));
d2:=sqrt(sqr(x2)+sqr(y2));
if d1<>d2 then write ('К началу координат ближе ');
if d1>d2 then writeln ('вторая точка') else
if d2>d1 then writeln ('первая точка') else
writeln ('Обе точки равноудалены друг от друга');
end.
Задача №1
var i, sum, x: integer;
begin
sum := 0; //начальная сумма
for i := 1 to 10 do //счётчик до 10
begin
write('Введите число ', i ,': ');
readln(x);
sum:= sum + sqr(x); //к сумме прибавляем квадрат введенного числа
end;
writeln('Сумма квадратов чисел = ',sum);
end.
Задача №2.
var i, sum: integer;
begin
sum := 0; //начальная сумма
for i := 26 to 88 do //счётчик от 26 до 88
begin
if i mod 2 = 0 then //проверка на чётность, если остаток от деления равен 0, то число чётное
sum:= sum + i; //к сумме прибавляем число
end;
write(sum);
end.