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>
Program zadacha_1;
var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=1 to a do begin
c:=sqr(b);
writeln(c);
end;
end.
<span>
program zadacha_2;
var a,b,c:integer;
begin
c:=1;
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
for a:=a to b do begin
c:=c*a;
end;
writeln('произведение чисел от ',a,' до ',b,' ==> ',c);
end.
<span>
program zadacha_3;
var a,b,c:integer;
d:real;
begin
c:=0;
writeln('введите число');
readln(a);
for b:=10 to a do begin
c:=c+1;
d:=d+b;
end;
d:=d/c;
writeln('среднее арифметическое ',d);
end.</span></span><span /><span><span><span>
</span></span></span>
Текст состоит из предложений связанных между собой логически и грамматически
Текст имеет
Зачин кульминацию
Развязку завязку
К тексту можно подобрать тему, название, план
Если без форм (<FORM>), то так:
<HTML>
<HEAD>
</HEAD>
<BODY>
<H1>Площадь трапеции</H1>
<SCRIPT>
var a = prompt('Укажите длину','');
var b = prompt('Укажите ширину','');
var h = prompt('Укажите высоту','');
alert ('Площадь трапеции будет равна '+(+a + +b)/2*h);
</SCRIPT>
</BODY>
</HTML>