1)винче́стер — запоминающее устройство (устройство хранения информации) произвольного доступа
2)Внешняя память компьютера. Основной функцией внешней памяти является способность долговременно хранить информацию.
3)Компьютерная сеть – это не что иное, как объединение нескольких компьютеров между собой, позволяющее им обмениваться данными.
Глобальными же сети называют тогда, когда они охватывают пользователей со всего мира.
4)Джо́йстик — устройство ввода информации в персональный компьютер..
5)Дисковод — устройство компьютера, позволяющее осуществить чтение и запись информации на съёмный носитель информации. Основное назначение дисковода в рамках концепции иерархии памяти — организация долговременной памяти.
6)Диспле́й — электронное устройство, предназначенное для визуального отображения информации.
7)Драйвер-компьютерное программное обеспечение, с помощью которого другое программное обеспечение получает доступ к аппаратному обеспечению некоторого устройства.
8)Информа́ция — сведения независимо от формы их представления.
9)Информацио́нное о́бщество — общество, в котором большинство работающих занято производством, хранением, переработкой и реализацией информации, особенно высшей её формы — знаний.
10)Информатизация— политика и процессы, направленные на построение и развитие телекоммуникационной инфраструктуры, объединяющей территориально распределенные информационные ресурсы.
11)Информационная технология — это процесс, использующий совокупность средств и методов сбора, обработки и передачи данных для получения информации нового качества о состоянии объекта, процесса или явления. Цель информационной технологии — производство информации для ее .анализа человеком и принятия на его основе решения по выполнению какого-либо действия.
var
r, L, S, V: Real;
begin
Write ('Введите радиус: ');
ReadLn (r);
L := 2 * Pi * r;
S := Pi * r * r;
V := 4 / 3 * Pi * Power (r, 3);
Writeln ('Длина окружности = ', L);
Writeln ('Площадь круга = ', S);
Writeln ('Объем шара = ', V);
end;
// PascalABC.Net
var
a,b:integer;
begin
Write('Введите через пробел числа а и b: '); Read(a,b);
if a=b then Writeln('Числа равны')
else
if a>b then Writeln(a,'>',b)
else Writeln(a,'<',b)
end.
Var
let: array [1..63] of Integer = (5 , 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 ,16 ,17 , 18, 19 , 20, 25, 26, 27, 28, 29,30, 35, 36, 37, 38, 39, 40, 45, 46, 47, 48, 49, 50, 55, 56, 57, 58, 59, 60, 65, 66, 67, 68, 69, 70, 75, 76, 77, 78, 79, 80, 85, 86, 87, 88, 89, 90, 95, 96, 97, 98, 99);
gad: array [1..9] of Integer = (1, 21, 31, 41, 51, 61, 71 ,81 ,91);
goda: array[1..27] of Integer = (2,3,4,22,23,24,32,33,34,42,43,44,52,53,54,62,63,64,72,73,74,82,83,84,92,93,94);
k: Integer;
begin
for k:=1 to 99 do
begin
if k = let then
begin
writeln('Мне', k, 'лет');
end;
if k = gad then
begin
writeln('Мне', k, 'год');
end;
if k = goda then
begin
writeln('Мне', k, 'Года');
end;
end;
end.
