SHARE
TWEET

Untitled

a guest Oct 18th, 2019 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program five;
  2.  
  3. var
  4.   n, counter :integer;
  5.   temp : real;
  6. begin
  7.   writeln('Введите n');
  8.   readln(n);
  9.   writeln('Введите числовую последовательность длинной ',n);
  10.   counter := 0;
  11.   for n:=0 to n-1 do
  12.   begin
  13.     readln(temp);
  14.     if ((sin(temp) >= -0.2) and (sin(temp) <= 0.5)) then
  15.     begin
  16.       counter := counter + 1;
  17.     end;
  18.   end;
  19.   writeln(counter);
  20. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top