Var
m:integer;
begin
read (m);
case m of
1: write ('Февраль');
2: write ('Март');
3: write ('Апрель');
4: write ('Май');
5: write ('Июнь');
6: write ('Июль');
7: write ('Август');
8: write ('Сентябрь');
9: write ('Октябрь');
10: write ('Ноябрь');
11: write ('Декабрь');
12: write ('Январь');
end;
end.
1)винче́стер — запоминающее устройство (устройство хранения информации) произвольного доступа
2)Внешняя память компьютера. Основной функцией внешней памяти является способность долговременно хранить информацию.
3)Компьютерная сеть – это не что иное, как объединение нескольких компьютеров между собой, позволяющее им обмениваться данными.
Глобальными же сети называют тогда, когда они охватывают пользователей со всего мира.
4)Джо́йстик — устройство ввода информации в персональный компьютер..
5)Дисковод — устройство компьютера, позволяющее осуществить чтение и запись информации на съёмный носитель информации. Основное назначение дисковода в рамках концепции иерархии памяти — организация долговременной памяти.
6)Диспле́й — электронное устройство, предназначенное для визуального отображения информации.
7)Драйвер-компьютерное программное обеспечение, с помощью которого другое программное обеспечение получает доступ к аппаратному обеспечению некоторого устройства.
8)Информа́ция — сведения независимо от формы их представления.
9)Информацио́нное о́бщество — общество, в котором большинство работающих занято производством, хранением, переработкой и реализацией информации, особенно высшей её формы — знаний.
10)Информатизация— политика и процессы, направленные на построение и развитие телекоммуникационной инфраструктуры, объединяющей территориально распределенные информационные ресурсы.
11)Информационная технология — это процесс, использующий совокупность средств и методов сбора, обработки и передачи данных для получения информации нового качества о состоянии объекта, процесса или явления. Цель информационной технологии — производство информации для ее .анализа человеком и принятия на его основе решения по выполнению какого-либо действия.
Program ves;
var
i,min,ch:LongInt;
begin
readln(ch);
min:=ch;
for i := 1 to 3 do
begin
readln(ch);
if min>ch then min:=ch;
end;
writeln(min)
end.
пж отметь как лучший
Исполнитель Чертёжник, PascalABC.NET 3.2
uses Drawman;
procedure Hexagon();
begin
PenDown;
OnVector(2, 1);
OnVector(0, 2);
OnVector(-2, 1);
OnVector(-2, -1);
OnVector(0, -2);
OnVector(2, -1);
PenUp;
end;
begin
Field(15, 7);
ToPoint(3, 1);
Hexagon();
OnVector(2, 0);
Hexagon();
OnVector(2, 0);
Hexagon();
end.
