1. Информатика
  2. Найти номер первого, меньшего

Найти номер первого, меньшего нуля, тангенса, среди tg(r), tg2, tg1. через программу паскаля

arino4ka3210 arino4ka3210    1   06.07.2019 21:00    3

Ответы
16Евгения16 16Евгения16  29.07.2020 22:55
Var r, i: integer;
begin
  write('r = ');
  readln(r);
  for i := r downto 1 do
    if Tan(i) < 0 then
      break;
  write(i);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Gurza97 Gurza97  16.09.2019 12:20
Растровый газетный рисунок состоит из 4 цветов чёрного,тёмно серого, светло серого, белого сколько битов понадобится для двоичного кодирования одного пикселя этого рисунка...
gulbakhar gulbakhar  16.09.2019 12:30
Напишите программу которая генерирует 15 случайных элементов в диапазоне от 1 до 70, определяет и выводит на экран : максимальный элемент кратный 3. python 3.4.3 50...
КамиляУшурова КамиляУшурова  02.07.2019 18:00
Вставь пропущенные слова, человек воспринимает информацию с чувств то,что мы слышим ушами, информации от источника звуковой информации человек воспринимает которые обрабатывает...
lerafrank26022 lerafrank26022  24.03.2020 12:01
1Определите значение переменной c после выполнения следующего фрагмента программы:a = –5;b = 3;a = a – b*2;if (a b) c = b – a;else c = a – b; 2 Запишите алгоритм на языке программирования...
agentponomarev6 agentponomarev6  24.03.2020 12:02
Найдите значение выражения. ответ запишите в десятичной системеСЧисления.1111010(2) – 234(8) + 72(16)​...
алюберт алюберт  13.03.2021 13:13
Var s1,s2,a:string; begin Readln(s1); for var i := 0 to 9 do a += IntToStr(i); for var i := 1 to Length(s1) do for var k := 1 to 9 do if s1[i] = a[k] then s2 += s1[i]; write(s2);...
Andrey346563545 Andrey346563545  13.03.2021 13:15
с этим заданием только правильно ​...
Алёна16578 Алёна16578  13.03.2021 13:20
Выберите виды роботов несколько вариантов​...
wkolo3avr211 wkolo3avr211  13.03.2021 13:21
Выбери верный ответ. иерархическая БД ответная БД рефлексная БД реляционная БД...
mon13 mon13  13.03.2021 13:22
Що буде надруковане в результаті виконання фрагменту програми? x=2 while x =5 x = x+1 print (x, end= )...

Популярные вопросы