1)Сбор и хранение. Сбор информации не является самоцелью. ...
Передача. В процессе передачи информации обязательно участвуют источник и приемник информации: первый передает информацию, второй ее получает. ...
Обработка. ...
Использование. ...
Защита.
3) Сканер
Монитор
Условие противоречит заданию. В момент ввода 0 программа завершает работу и одновременно спрашивает сколько введено нулей. Больше, чем один ноль не может быть!
Вот решение:
zero = 0
i = int(input())
while i != 0: i = int(input())
if i == 0: zero+=1print("Вы напечатали", zero, "ноль")
Итак:
1 символ = 1 байт.
всего 400 страниц
На одной странице 50 строк по 40 символов, т.е. 50*40 = 2000 символов на одной странице
2000 * 400 (страниц) = 800000 символов в книге
Переводим 800000 символов = 800000 байт = 800 килобайт = 0,8 мбайт = 0,0008 гбайт
В одном гбайте - 1000000 кбайт
С.л. 1000000 * 4 = 4000000 кбайт
4000000 кбайт (размер диска) делим на 800 кбайт (размер одной книги)
= 5000 книг
Program exp3;
uses crt;
const
m = 5;
n = 3;
type
matr = array [1 .. m, 1 .. n] of integer;
var
A: matr;
b, i, j, k: integer;
begin
clrscr;
randomize;
for i := 1 to m do
begin
for j := 1 to n do
begin
A[i, j] := random(101);
end;
end;
k := n div 2;
for j := 1 to k do
begin
for i := 1 to m do
begin
b := A[i, j];
A[i, j] := A[i, n - j + 1];
A[i, n - j + 1] := b;
end;
end;
for i := 1 to m do
begin
for j := 1 to n do
begin
write(A[i,j]: 5) ;
end;
writeln;
end;
readln;
end.