Дана последовательность нену­ле­вых вещественных чисел х, за ко­торой сле­дует 0 (0 –...

Question

Дана
последовательность нену­ле­вых вещественных чисел х, за ко­торой сле­дует 0 (0
– признак конца последо­вательности)... Найти минимум из чисел sin(х).

Answer 1

Var a,m:real;
begin
read(a);
m:=sin(a);
while a<>0 do begin if sin(a)write(m);
end.