Ерунда, а не задача.... трижды одно и то же разными словами.
Var a,b,c: real;
begin
readln (a);
readln (b);
readln (c);
if (a mod 5)=0 then
writeln (a);
if (b mod 5)=0 then
writeln (b);
if (c mod 5)=0 then
writeln (c);
end.
1-16 = 2^4 т.е. 4 бит на символ
2-составить таблицу двоичного кода
какого именно?
3-найти информационный обьем двоичного кода
а-111000 - 6 бит
б-1010 - 4 бита
в-101- 3 бита
г-1010101111 - 10 бит
4-Перевести обьем из одной единице измерения в другую
а 70 мб-бит = 70*1024*1024*8 бит
450 мб-бит = 450*1024*1024*8 бит
2гб-байт = 2*1024*1024*1024 байт
1.8 гб-байт = 1,8*1024*1024*1024 байт
5-Минимальная мощность алфавита - 2 символа наверное
6-Минимальный информационный обьем 1 символа - 1 бит
<em>MS DOS QBasic 1.0</em>
CLS
INPUT "a,b,n "; a, b, n
s = n * (a * 100 + b)
PRINT s \ 100; "rub"; s MOD 100; "kop"
<u>Пример</u>
a,b,n ? 18,45,16
295 rub 20 kop