Если я правильно понял формулу то решение будет такое.
program zadacha_1;
var
z, c, v: real;
i, x, y, t : integer;
begin
writeln('Введите Х: ');
read(x);
writeln('Введите Y: ');
read(y);
writeln('Введите T: ');
read(t);
c:=((x * x * x) + (2 * t) + (3 * sqrt(y)));
z:=cos(c) + sin(c);
v:=7*exp(1);
for i:=2 to x do v:=v*v;
z:=z+v;
writeln('Результат равен ', z);
end.
// PascalABC.NET
var
y,x,n:real;
begin
write('Введите n: ');
readln(n);
while (x <= n) do begin
writeln('Y = ', sin(x)*cos(x));
x:=x+0.1;
end;
end.
Проверка:
Введите n: 1
Y = 0
Y = 0.0993346653975306
Y = 0.194709171154325
Y = 0.282321236697518
Y = 0.358678045449761
Y = 0.420735492403948
Y = 0.466019542983613
Y = 0.49272486499423
Y = 0.499786801520753
Y = 0.486923815439098
Y = 0.454648713412841
Не написано "?" может быть пробелом , я подумал нет , поэтому
masai.db2 - 1 или 2
curasao.dat - 2
mcscan.db2 - 1,2,4,5
acsacal.db - 4
osoka.dbr - 1, 2,3
Я то это сделаю, но скажи в каком виде тебе надо ?
Вот, если не понятно спрашивай!