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

Ввести 4 числа, подсчитать количество чисел принадлежащих интервалу [-1 ; 5).

👇
Ответ:
ТвойВраг
ТвойВраг
04.12.2022
Var i,prin,a: Integer;
begin
prin:=0;
for i:=1 to 4 do
begin
WriteLn('введите число');
readln(a);
if(a>=-1) and(a<5) then inc(prin);
end;
WriteLn();
WriteLn('кол-во чисел принадлеж: ',prin);
end.
4,7(35 оценок)
Открыть все ответы
Ответ:
badangel888
badangel888
04.12.2022
// PascalABC.NET 3.0, сборка 1088
const
  nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
type
  Date=record
    Day,Month,Year:integer
  end;
 
function DOW(Dat:Date):integer;
// день недели по дате. 0-Вс. 1-Пн, 7-Сб
var
  a,y,m:integer;
begin
  With Dat do begin
    a:=(14 - month) div 12;
    y:=Year-a;
    m:=month+12*a-2;
    DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7
    end
end;

procedure DMY2Date(d,m,y:integer; var data:Date);
// Преобразует к дате заданные день, месяц и год
begin
  data.Day:=d; data.Month:=m; data.Year:=y
end;

procedure LastDays(month,year:integer; var Wd,Fr:Date);
// даты последней среды (Wd) и пятницы (Fr) для месяца в году }
var
  LastDay:Date;
  n:integer;
begin
  n:=nDay[month];
  if (month=2) and (year mod 4 = 0) then Inc(n);
  DMY2Date(n,month,year,LastDay);
  n:=DOW(LastDay); // номер последнего дня недели
  Wd.Month:=month; Wd.Year:=year;
  if n<3 then Wd.Day:=LastDay.Day-(n+4)
  else
    if n=3 then Wd.Day:=LastDay.Day
    else Wd.Day:=LastDay.Day+3-n;
  Fr.Month:=month; Fr.Year:=year;
  if n<5 then Fr.Day:=LastDay.Day-(n+2)
  else
    if n=3 then Fr.Day:=LastDay.Day
    else Fr.Day:=LastDay.Day-1
end;

var
  Wd,Fr:Date;
  ff,mf:Text;
  m:integer;
begin
  Assign(ff,'father.txt'); Rewrite(ff);
  Assign(mf,'mother.txt'); Rewrite(mf);
  // Сентябрь-декабрь 2015 года
  for m:=9 to 12 do begin
    LastDays(m,2015,Wd,Fr);
    if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс')
    else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс');
    if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс')
    else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс')
  end;
  // Январь - май 2016 года
  for m:=1 to 5 do begin
    LastDays(m,2016,Wd,Fr);
    if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс')
    else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс');
    if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс')
    else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс')
  end;
  Close(ff); Close(mf)
end.

Содержимое выходных файлов:
father.txt
30.9.2015 - 1 класс
28.10.2015 - 1 класс
30.10.2015 - 5 класс
30.12.2015 - 1 класс
24.2.2016 - 1 класс
26.2.2016 - 5 класс
30.3.2016 - 1 класс

mother.txt
25.9.2015 - 5 класс
25.11.2015 - 1 класс
27.11.2015 - 5 класс
25.12.2015 - 5 класс
27.1.2016 - 1 класс
29.1.2016 - 5 класс
25.3.2016 - 5 класс
27.4.2016 - 1 класс
29.4.2016 - 5 класс
25.5.2016 - 1 класс
27.5.2016 - 5 класс
4,4(92 оценок)
Ответ:
korol23
korol23
04.12.2022

1)Беспроводная локальная сеть (англ. Wireless Local Area Network; Wireless LAN; WLAN) — локальная сеть, построенная на основе беспроводных технологий.  

При таком построения сетей передача данных осуществляется через радиоэфир; объединение устройств в сеть происходит без использования кабельных соединений.

Наиболее рас на сегодняшний день построения является Wi-Fi.

2) Немецкая корпорация МАН является известным производителем грузовых автомобилей и всевозможных автобусов: городских, пассажирских и туристических. На сегодняшний день автобусы городские MAN являются наиболее популярными не только в нашей стране, но и во всем мире. Их популярность объясняется высоким качеством, комфортабельностью и уникальным дизайном. Все это стало возможным благодаря передовым технологиям и сверхсовременному оборудованию. Городские автобусы немецкого производителя являются надежным транспортным средством для безопасной перевозки пассажиров внутри города. Общая вместимость подобных автобусов составляет сто двадцать пассажиров. Концерн МАН является одной из самых старейших в Западной Европе компанией, выпускающей транспортные средства подобного плана. Завод существует с 1897 года и сегодня представляет собой крупнейший концерн со штаб-квартирой в Мюнхене.

Отличительной особенностью автобусов городских MAN является низкий пол и оснащение турбированными двигателями, которые не загрязняют атмосферу. Кроме того, автобус располагает безопасным кузовом с совершенно ровным полом. Данный торговый бренд автобусов неоднократно был удостоен престижных премий таких, как  «Red Dot Award 2003» или «IF Design Award 2004». Ежегодно компания расширяет свой модельный ряд городских автобусов и модернизирует старые модели. Отлично развитая дилерская сеть МАН в Российской Федерации  позволяет приобрести подобное транспортное средство в любом регионе страны. Первая станция техобслуживания автобусов МАН была открыта на территории нашей страны в 2006 году в Санкт-Петербурге. Наиболее востребованными считаются такие модели городских автобусов, как  Lion’s Classic и  Lion’s City.

3)Количество подключенных пользователей. К локальной сети, как правило, подключено большое количество пользователей. Каждый компьютер в офисе – это узел локальной сети. В то же время, WAN обычно имеет меньшее количество узлов: например, в предыдущем примере с удалённым офисом, у нас будет всего два узла: маршрутизатор основного офиса и маршрутизатор удалённого офиса.

4,5(11 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ