Цитата:
Сообщение от Филька
Ошибку ввода выдаёт..(
|
program rom1;
uses crt; {ты вот эти строки ввел?}
var z,t:real;
begin
clrscr;
t:=1;
repeat
write('t= ',t:0:1,' ');
z:=sqrt(2*sqr(t)+3*sin(t)+1);
writeln('z= ',z:0:4);
t:=t+0.2;
until t>=3.000001;
readln;
end.