Для измерения длины есть такие единицы, как миллиметр, сантиметр, метр, километр. Известно, что масса измеряется в граммах, килограммах, центнерах и тоннах. Бег времени выражается в секундах, минутах, часах, днях, месяцах, годах, веках. Компьютер работает с информацией и для измерения ее объема также имеются соответствующие единицы измерения.
Мы уже знаем, что компьютер воспринимает всю информацию через нули и единички. Бит – это минимальная единица измерения информации, соответствующая одной двоичной цифре («0» или «1»).
Байт состоит из восьми бит. Используя один байт, можно закодировать один символ из 256 возможных (256 = 28). Таким образом, один байт равен одному символу, то есть 8 битам:
1 символ = 8 битам = 1 байту.
Изучение компьютерной грамотностипредполагает рассмотрение и других, более крупных единиц измерения информации.
Если хорошенько задуматься, то получается всего 4 компьютера. Допустим, дадим этим углам имена 1,2,3,4. 12 Итак, в каждом углу по одному компьютеру. | | Назовём эти компьютеры так, тот, что стоит в углу 1 | | будет называться К1 (компьютер 1), тот, что стоит в углу || 2 будет К2, и тд. (Всего компьютеров: К1,К2,К3,К4). 3 4 Теперь смотрим на рисунок: напротив К1, стоит К3, а напротив К2, стоит К4. То есть, напротив 1 компьютера стоит 3, напротив 3 - 4. То есть, всего 4 компьютера. Даже если эти компьютеры мы повернём лицом к середине комнаты, всего будет 4 компьютера, так как 1 будет смотреть на 4, а 2 на 3. ответ: всего 4 компьютера.
1)var
chislo,max:integer ;
begin
Writeln('Введите числа');
max:=0;
Read(chislo);
while chislo <> 0 do
begin
If(chislo>max) then
max:=chislo;
Read(chislo);
end;
Writeln('Наибольшие число из веденных является ',max);
end.
2)
var
chislo,di,k:integer;
begin
Writeln('Введите число');Readln(chislo);
for di:= 1 to chislo do
begin
if((chislo mod di) = 0 ) then
begin
Writeln('Число делится на ',di);
k:=k+1;
end;
end;
if(k>2) then
Writeln('Число',chislo,' не простое');
if(k=2) then
Writeln('Число ',chislo,' простое');
end.
Объяснение: