1)составить программу,которая распечатает значения функций Y=2X+3 ** отрезке [0;2,5]с...

Question

1)составить программу,которая распечатает значения функций Y=2X+3 на отрезке [0;2,5]с шагом 0,1.

2)дан одномерный числовой массиф В(16). Необходимо вывести на экран индексы элементов значения, которых равны числу P.

cрочно надо на языке паскаль составить плиз)

Answer 1

Program PR1;
uses crt;
var x:real;
Begin
clrscr;
x:=0;
while x<=2.5 do begin<br> writeln('Y=',2*x+3);
x:=x+0.1;
end;
end.

2)

Program PR1;
uses crt;
var b:array[1..16] of integer;
i,p:integer;
Begin
clrscr;
for i:=1 to 16 do begin
writeln('Vvedite ',i,'-i chislo massiva');
readln(b[i]);
end;
writeln('Vvedite P');
readln(p);
for i:=1 to 16 do if b[i]=p then writeln(i,' ',b[i]);
end.