Question

Напишите программы на языке паскаль. Срочно!!!

Answer 1

9. var a,min,i:integer;
begin
min:=100;
for i:=1 to 3 do
begin
Writeln('Введитп возраст ' ,i, ' призера спартакиады');
readln(a);
if a<min then min:=a;
end;
Writeln('Возраст самого младшего призера - ', min, ' лет');
end.
10. var k,l,x,y,y1:integer;
begin
Writeln('Введиье k');
Readln(k);
Writeln('Введиье l');
Readln(l);
Writeln('Введите координату x точки');
ReadLn(x);
Writeln('Введите координату y точки');
ReadLn(y);
y1:=(k*x)+l;
if y>y1 then Writeln('Прямая лежит над прямой');
if y=y1 then Writeln('Прямая лежит на прямой');
if y<y1 then Writeln('Прямая лежит под прямой');
end.