Какое значение получит переменная s после выполнения следующего фрагмента алгоритма? a:=1 if (a > 2) or (4 > a) then s:=a - 2 else s:=a+3

-1

Объяснение:

Вообще программа должна вывести ошибку, так как не хватает точек с запятой, но если не обращать на это внимания, то:

а равно 1

Если а более двух или менее четырёх, то s = a - 2 = -1.

а менее четырёх, значит s примет значение -1.

Информационные ресурсы и сервисы компьютерных сетей
Средства обеспечения определенных информационных услуг для пользователей сети принято называть службами Интернета. Кроме понятия «служба» существует еще понятие «сервис». Часто разницу между ними довольно трудно уловить. Число различных служб и сервисов в сети непрерывно растет. Опишем лишь некоторые самые известные службы, разделив их на коммуникационные и информационные.

Еще раз обратим внимание на то, что все службы Интернета основаны на взаимодействии двух программ. Одна из этих программ - сервер, а другая программа - клиент. Они взаимодействуют по определённым правилам, заданным в протоколах

Протокол службы - технический стандарт (система правил), определяющий технические особенности взаимодействия почтовых серверов друг с другом и с почтовым клиентом.

Если протокол ТСР/IР называется базовым протоколом Интернета, то протоколы служб можно назвать прикладными протоколами (иногда их называют протоколами второго уровня).

Поясним смысл еще двух терминов, которые будут дальше использоваться. Режим on-line — это режим работы пользователя в состоянии подключения к какому-либо серверу Сети. Состояние отключенной связи называется режимом оff-line. Аналогия: общение по телефону всегда происходит в режиме on-line. При отправлении телеграммы вы заполняете бланк в режиме оff-line, затем телеграфист в режиме on-line передает телеграмму по линии связи; а затем получатель читает телеграмму в режиме оff-line.

var i,j,k,m: integer;
    s: string;
begin
  k:=0;
  for i:=1 to 1000000 do
  begin
    s:=IntToStr(i);
    m:=0;
    for j:=1 to (length(s) div 2) do
    if s[j]<>s[length(s)-j+1] then m:=1;
    if m=0 then
    begin
      inc(k); continue;
    end;  
    m:=pos('0',s);
    if m>0 then
    begin
      inc(k); continue;
    end;  
    m:=1;  
    for j:=2 to round(sqrt(i)) do 
    if i mod j = 0 then
    begin
      m:=0;
      break;  
    end;  
    if m=1 then inc(k); 
  end;
  k:=1000000-k;
  writeln('осталось чисел: ',k);
end.

осталось чисел: 544011