Program qfdw;
uses crt;
Type
vershina=Record
Tochka:string;
X,Y:real;
end;
ps=File of vershina;
Var f:ps;
z,a,b,c:vershina;
i:integer;
Begin
assign(f,'1.dat');
rewrite(f);
writeln('Введите вершины треугольника и их координаты: ');
for i:=1 to 3 do
begin
writeln(i,'-я вершина');
write('буква: ');read(z.tochka);
write('X=');read(z.x);
write('Y=');read(z.y);
write(f,z);
end;
Close(f);
assign(f,'1.dat');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
writeln('Cтороны треугольника:');
writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.
ну рас не сказано на каком языке это нужно написать, напишу лишь логику решения к примеру цикл repeat - until(для паскаля)
writleln('введите число чей факториал ищем');
readln(n)
x=1
z=1
repeat
x=x*z
z=z+1
until z=n
так же обычный цикл for рассмотрю для VBA
msgbox(" введите число чей факториал ищем ")
inputbox(n)
x=1
for i=1 to n
x=x*i
i=i+1
next
и конечно же всегда можно обойтись без цикла как такового зациклив обычный if оператором безусловного перехода его для обычного бэйсика рассмотрим
10 x=1
11 i=1
12 print (' введите число чей факториал ищем ')
13 input(n)
20 x=x*i
30 i=i+1
40 if i<n then goto 20
еще конечно можно с и do-while , но это совсем другая история, у нас в школе были лишь эти 3 языка программирования так что по аналогии сделаешь на тот который дают вам
Объяснение:
<html>
<head>
<style>
.arial{
font-style: arial, sans-serif;
}
.times{
font-style: times, sans-serif;
}
.calibri{
font-style: calibri, sans-serif;
}
.new{
font-style: New Roman, serif;
}
</style>
</head>
<body>
<p class="arial">arial</p>
<p class="times">times</p>
<p class="calibri">calibri</p>
</body>
</html>