var
k,n, i:integer;
begin
write('k = '); readln(k);
write('n = '); readln(n);
for i := 1 to n do
writeln(k);
end.
1. Это сведения, знания, сообщения о положении дел, которые человек воспринимает из окружающего мира с помощью органов чувств (зрения, слуха, вкуса, обоняния, осязания).
2. Текстовая, числовая, графическая, звуковая, комбинированная.
3. Процессы получения, создания, сбора, обработки, хранения, накопления, поиска, представления, использования и распространения информации. Основные виды: хранение, передача, обработка информации.
4. Количество символов, используемых в алфавите.
5. Бит, байт, кбайт, мбайт, гбайт.
6. N = 2^i, где
N - мощность алфавита;
I - количество бит на символ.
7. Единицы измерения: 1 байт = 8 бит.
8. Информация, хранящаяся на внешнем носителе и объединенная общим именем.
9. Программы, которые обеспечивают управлением работы устройств и согласовании информационного обмена с другими устройствами.
10. Компьютерная программа, используемая для написания и модификации документов, компоновки макета текста и предварительного просмотра документов в том виде, в котором они будут напечатаны.
10. 32 бита = 4 байта, 2,5 кбайта = 2560 байта, 3 кбайта = 24576 бит, 6 байт = 48 бит.
Program symma;
var a,b,c,s:integer;
begin
Readln(a,b,c);
if (a > b) and (c > b) then s:=a+c;
if (b > a) and (c>a) then s:=b+c;
if (a>b) and (b>c) then s:=a+b;
if (b>a) and (a>c) then s:=b+a;
Writeln(s)
end.
Program Max;
Const first = 1; last = 10;
Var a: Array [first..last] Of Integer;
m, tmp, i: Integer;
Begin
WriteLn('Введите через пробел ', last, ' чисел');
For i := first To last Do
Read(a[i]);
m := first;
For i := first To last Do
If a[i] > a[m] Then
m := i;
tmp := a[last];
a[last] := a[m];
a[m] := tmp;
WriteLn('Результат:');
For i := first To Last Do
Write(a[i], ' ');
ReadLn;
End.
Varn,a,b,i:integer;beginb:=0;writeln('введите количество классов');readln(n);for i:=1 to n do beginwriteln('введите количество учеников');readln(a);b:=a+b;end;writeln(b);end. Программа вроде работает,но писал на скорую руку,так,что проверь
