Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program zadacha;
uses crt;
var a: array[1..6] of integer;
max,i: integer;
begin
for i: =1 to 6 do readln(a[i]);
max: =a[1];
for i: =1 to 6 do if max > a[i] then max: =a[i];
writeln(max);
readln;
end.
вроде правильно..
program xxx;
var i, s : integer;
s: =0;
for i: = 10 to 99 do
if i mod 5 = 0 then s: =s+i;
writeln('сумма двузначных чисел, кратных 5 =', s);
readln
100010,011101=42,35 (вос. сис.)
10010,011101=22,1d (шест. с.)
111 111 111 000 001=77701(в.с)
0111 1111 1100 0001(добавляем 0)=7fc1 (ш.с.)
0,000110101=0,065(в.с) (доб. 00)
0,0110101=0,35(ш.с.)
0,11 100 110 101=0,3465(в.с.)
0,111 0011 0101=0,735(ш.с.)
значит так, используем единственную в информатике формулу
n=2^i
n-это количество символов в алфавите, значит n=64
64 это 2 в 6 степени, значит i=6 - это информационный объем одного символа, а нам надо найти информационный объем 3072 символа, значит
6*3072 = 18432 бита = 2304 байта
Популярные вопросы