Ответы на вопрос:
объяснение:
1.
program line_ab;
uses crt;
var l, xa, xb, ya, yb: real;
begin
writeln('найдем длину отрезка ав по координатам его крайних точек' );
writeln('введите координаты точки a');
write('x = '); readln(xa);
write('y = '); readln(ya);
writeln('введите координаты точки b');
write('x = '); readln(xb);
write('y = '); readln(yb);
l: =sqrt(sqr(xb-xa)+sqr(yb-ya));
write('длина отрезка ab равна ', l);
readln;
end.
2.
program multdrob;
uses crt;
var z, mult: real; i, l: integer;
begin
write('введите z = '); readln(z);
write('введите l = '); readln(l);
mult: =z+5/(10);
for i: =1 to l do
mult: =mult*(z+5/(10+i)) ;
write('произведение дробей z+5/[10..l] равно ', mult);
readln;
end.
3.
program multmass;
uses crt;
var a: array[1..10] of real; mult: real; i: integer;
begin
randomize;
for i: =1 to 10 do begin
a[i]: =random(10);
write(a[i]: 7: 2) end;
writeln;
mult: =1;
for i: =2 to 10 do
if a[i] > a[1] then mult: =mult*a[i] ;
if mult> 1 then write('произведение элементов болших первого равно ',mult)
else write('произведение элементов болших первого равно ' ,0);
readln;
end.
Популярно: Информатика
-
anastasiya290505.10.2021 19:37
-
olgagavrikova3116.02.2021 00:15
-
IvanRusYT20.05.2023 04:54
-
никита16l21.08.2021 01:47
-
Timoxa56504.07.2020 05:08
-
BvbNo906.07.2020 10:26
-
nikkf2011126.02.2020 14:30
-
themartynov2318.10.2021 05:24
-
Lunitoes20.06.2020 08:25
-
schooll1322.06.2022 10:18