1)Составить алгоритм нахождения y, если y=4x/x-1 2) Составить алгоритм вывода на экран всех трехзначных чисел, оканчивающих на 4

1)

program pr;uses crt;Var y,x:real;Begin Writeln('vvedite x'); readln(x); y:=(4*x)/(x-1); Writeln('y=',y:10:3);  readln;end.

2)

program pr;Var n,i,a:integer;BeginWriteln('введите кол-во цыфр');readln(n);for i:=1 to n do Beginreadln(a);if (a>9) and (a<1000) and (a mod 10=4) then Writeln(a);end;end.

2) использование массива

program pr;uses crt;Var n,i:integer;    a:array[1..100] of integer;BeginWriteln('Введите кол-во цифр');readln(n);Writeln('Введите цифры');for i:=1 to n do read(a[i]);Writeln;for i:=1 to n doif (a[i]>9) and (a[i]<1000) and (a[i] mod 10=4) then Write(a[i],';');end.