Program n1;
var i,n: integer;
begin
write('N=');
readln(n);
for i:=2 to 9 do writeln(n,'*',i,'=',n*i);
end.
На c#:
public T[] PomenyatData<T>(T[] Data)
{
T[] result = new T[Data.Length];
for(int i = 0; i < Data.Length; i++)
{
result[Data.Length - i] - Data[i];
}
return result;
}
Ответ:
1991 год, windows 3.1 выпущена 18 марта 1992 года
Объяснение:
№1
Program anton4nk;
uses crt;
var a,b,c:real;
begin
clrscr;
writeln(' Введите в последовательности A, B, C');
readln(a,b,c);
writeln(b+sqrt(sqr(b)+4*a*c)/2*a);
end.
______________________________________
№2
Program anton4nk;
uses crt;
var a,b,c,d:real;
begin
clrscr;
writeln('Введите в последовательности A, B, C, D');
readln(a,b,c,d);
writeln((a/c)*(b/d)-(a*b-c)/(c*d));
end.
______________________________________