Регистрация
voegrogo5523
02.01.2023 03:27
Информатика
Есть ответ 👍

Ka11. найти расстояние между двумя точками на плоскости

151
284
Посмотреть ответы 2

Ответы на вопрос:

затура56
затура56
4,8(5 оценок)
Var x1,y1,x2,y2: real; begin write('x1 = '); read(x1); write('y1 = '); read(y1); write('x2 = '); read(x2); write('y2 = '); read(y2); write('расстояние между точками (',x1,'; ',y1,') и (',x2,'; ',y2,') = ',sqrt(sqr(x2-x1)+sqr(y2-y1)) ) end.
Valeria12351778
Valeria12351778
4,6(41 оценок)

var s:array[1..20] of real;

i, sum_mas:integer;

begin

sum_mas:= 0;

for i:=1 to 20 do readln(s[i]);

for i:=1 to 20 do

(if s[15] = s[i]) then sum_mas:= sum_mas + s[i];

write(sum_mas);

end.

Популярно: Информатика