Источник информации - Я.
Кодирующие устройство - телефон.
Канал Связи - Линия Сотовой связи.
Декодирующее устройство - телефон друга.
Приемник Информации - друг.
1)
var a:real;
begin
writeln('Введите число');
readln(a);
if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');
end.
2)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');
end.
3)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');
end.
4)
var a,b:longint;
begin
writeln('Введите числа');
readln(a,b);
if(a>b) then writeln(b) else writeln(a);
end.
5)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a>0) then a:=a+5 else a:=a-1;
writeln(a);
end.
6)
var a,i,k:longint;
begin
k:=0;
for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;
writeln(k,' ','положительных чисел');
end.
Задача 1
1) 0.0002441 КБ=0.25 Б=2 бит
2)1.5 ГБ=1536 МБ=1572864 КБ
3)512 КБ=2^(16) Б=2^(21) бит
Задача 2
Переводим все у биты, чтоб удобно было сравнивать.
1024×8=8192 бит
8000000>8192>106
Из этого выходит, что вариант 1 является правильным.
Задача 3
1.44 МБ×1024=1474,56 (КБ) - обьем дискеты
1474,56:600=2.5
На дискете полностью вместятся 2 книги.
420 МБ×1024=430080 (КБ) - обьем flash-носителя
430080:600=716,8
На flash-диске полностью поместится 716 книг.
Вместо Х там должно быть 2
Стандартная дискета имеет объем 1,44 Мбайт.
Длина сообщения - 1160 бит. Пусть количество сообщений, которое может уместится на дискете будет равно X. Следовательно, имеем урованение:
1160 бит * X = 1,44Мбайт
1160 бит * X = 1,44 * 1024 * 1024 * 8 бит
1160 бит * X = 12079595,5 бит
X = 12079595,5 / 1160 = 10413,4444
Ответ: 10413 сообщений