uses crt;
var
x,z,a:integer;
y:real;
begin
clrscr;
z:=0;
write('col chisel I= ');
read(x);
for a:=1 to x do
z:=z+1;
y:=sin(z/100);
if y<0 then
writeln('first otr chisl pri I=',z)
else
writeln('malo chisel =)');
end.
Сообщение отредактировано: Raznorg -