М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Индира347
Индира347
30.05.2020 12:23 •  Информатика

Решить по информатике в паскале! программа вычисления тангенса угла, заданного в градусах.

👇
Ответ:
15kristina
15kristina
30.05.2020
Var a:real;
tg:real;
begin
readln(a);
tg:=sin(a)/cos(a);
writeln(tg);
end.
4,6(7 оценок)
Ответ:
snezhana0709
snezhana0709
30.05.2020
var
  r: real;

begin
  readln(r);
  writeln(System.Math.tan(r * Pi / 180));
end.

Прости, не сразу догадался посмотреть в документация Excel (.NET тоже мелкомягкие разработали), оттого задержался с ответом
4,4(98 оценок)
Открыть все ответы
Ответ:
alikalik3
alikalik3
30.05.2020

Сымсыз желі

Сымсыз желіні екі жолмен теңшеуге болады. Яғни. Арнайы режим. Сымсыз құрылғыларға WLAN карталары мен байланыс үшін кіру нүктелері қажет.

Сымсыз желілер өте қымбат тұратын сымсыз адаптерлер мен кіру нүктелері сияқты жабдықты қажет етеді. Сымсыз желілердің құны сымды желілермен салыстырғанда жоғары.

Сымсыз желімен қамтамасыз етілетін ең жоғары өткізу қабілеті шамамен 11 Мбит құрайды.

Сымсыз желінің сенімділігі сымды желіге қарағанда төмен.

Деректерді қорғау үшін WLANS кабель (WEP) арқылы құпиялылықтың балама шифрлауын қолданады. Бұл сымсыз желілерді сымды желілер сияқты қауіпсіз етеді.

Ноутбуктер мен басқа есептеу құрылғылары сымсыз желіде еркін қозғалады, өйткені сымсыз желінің ұтқырлығы сымды желілермен салыстырғанда жақсырақ.

4,7(42 оценок)
Ответ:
checknutaya
checknutaya
30.05.2020
Cvar
  f: Text;
  k: integer;
  s, p: longint;
  i: integer;

begin
  Assign(f, 'output.dat');
  Rewrite(f);
  writeln('Вводите данные, окончание число 7777');
  repeat
    read(k);
    if k<>7777 then writeln(f,k)
    until k=7777;
  Close(f);
  Reset(f);
  s := 0;
  p := 1;
  writeln;
  while not Eof(f) do
  begin
    readln(f, k);
    write(k:4);
    s := s + k;
    if k <> 0 then p := p * k
  end;
  Close(f);
  writeln;
  writeln('Сумма= ', s, ', произведение= ', p)
end.

Вводите данные, окончание число 7777
3
6
-4
6
2
-3
-4
2
6
0
5
-1
7777

   3   6  -4   6   2  -3  -4   2   6   0   5  -1
Сумма= 18, произведение= 622080
4,8(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ