Var x1,y1,x2,y2,r:real;
begin
write('Введите x1,y1');read(x1,y1);
write('Введите x2,y2');read(x2,y2);
r:= sqrt(sqr(x2-x1) + sqr(y2-y1));
write('расстояние между двумя точками = ',r);
<span>end.</span>
Var
i, n: integer;
a, s: real;
begin
readln(n);
a := 1;
s := a;
for i := 2 to n do
begin
a := a * -(i - 1) / i;
s := s + a;
end;
writeln(s:10:6);
end.
1.
<span>var i:integer;
begin
for i:=10 to 99 do writeln(i);
end<span>.
Результат:
10
11
12
...
98
99
2.
var i:integer;
begin
for i:=10 to 99 do
if i mod 10=5 then writeln(i);
end.
Результат:
15
25
...
95
3.
var i:integer;
begin
for i:=1 to 15 do
write(random(21)+10,' ');
end.
Пример:
<span>25 19 12 11 25 27 30 19 21 19 15 10 14 22 22</span></span></span>
Смотря где рисовала! Попробуй перезагрузить, у меня было такое в Paint, не открывается только твой рисунок? или все файлы-картинки? Если изображение не открывается , должна высветится табличка с какой либо надписью почему она не открывается! Есть очень много случаев , например: этот файл не потянет на твой компьютер, у тебя если тупой виндоус , или наоборот слишком отличный! Или файл ты неправильно сохранила, что тот просто на просто НЕ сохранился! Попробуй перезагрузить файл, возможно получиться, или почисти компьютер от файлов не нужных, возможно он перегружен слишком,