Составить схему алгоритма z=x 3 /y, где у = sin(x)+0,5. Вычислительный процесс описывается следующей условной формулой: Z = {вычислить z=x 3 /y, если у ≠ 0 вывести 'у=0', если у=0

№1

Служби Інтернету

З Інтернету кожна людина отримує для себе цікаві та корисні відомості. Готуючись до уроку української літератури, учні шукають літературні твори. Когось цікавлять результати футбольних матчів, інших - поради з утримання домашніх тварин. Хтось хоче замовити через Інтернет квитки на літак, а хтось — подивитися цікаве відео. Багато людей використовують Інтернет для спілкування - це листування, обмін повідомленнями в реальному часі, мережні ігри тощо.

Різні потреби людей обслуговують різні служби Інтернету. Служб Інтернету багато, їх перелік постійно поповнюється.

№2 Протоко́л передава́ння да́них — набір угод інтерфейсу логічного рівня, які визначають обмін даними між різними програмами.

№3 Кабель провайдера, який заходить в квартиру або офіс, підключається тільки до одного пристрою – наприклад, стаціонарного ПК. Якщо користувачів багато, необхідно придбати роутер. Інтернет буде надходити на роутер, а той розділить його між користувачами. Дані в інтернеті передаються у вигляді пакетів, які направляються оптимальним маршрутом з можливих. У цьому відмінність інтернету від телефонної мережі. Спеціальне Подбає, щоб пакет з даними відправився по робочому маршруту навіть у випадку, якщо на шляху проходження виникли проблеми.

№4 Domain Name System, DNS) — ієрархічна розподілена система перетворення імені хоста (комп'ютера або іншого мережевого пристрою) в IP-адресу. Кожен комп'ютер в Інтернеті має свою власну унікальну адресу — число, яке складається з чотирьох (у протоколі IPv4) або шістнадцяти (у протоколі IPv6) байтів.

№5 До числа послуг, які надають провайдери можуть входити: доступ до інтернету по комутованому лініям надійного зв'язку надання дискового простору для зберігання та забезпечення роботи сайтів (хостинг); ... розташування обладнання клієнтів на власних технічних потужностях та лініях зв'язку (колокація);

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.