Сначала наполняем трели первый бидон, переливаем масло из него в пятилитровый. Там теперь 3 л. Еще раз наполняем трехлитровый бидон и заполняем до конца пятилитровый. Теперь в трехлитровом бидоне 1 л и в пятилитровом 5. Возвращаем масло из пятилитрового бидона в восьмилитровый, а из трехлитрового выливаем в пятилитровый 1 л масла. Снова наполняем трехлитровый и выливаем в пятилитровый. Теперь в пятилитровом бидоне 4 л масла и в восьмилитровом так же.
var
i:integer;
begin
for i := 10 to 99 do
if (((2*i) mod 10) = 8) and (((3*i) mod 10) = 4) then
write(i,' ');
end.
Просто для хранения одного произвольного символа (буквы, цифры, знака препинания и т.д.) может использоваться 8 битов.
8 битов составляют 1 байт
Например, слово информатика составляет 11 символов, для хранения которых потребуется по 8 байтов. 11 умножить на 8 будет 88. Следовательно, слово информатика можно сохранить в файле с размером 88 битов или 11 байтов.
Есть и другие величины в информатике.
1 кб (килобайт) = 1024 байтов
1 мб (мегабайт) = 1024 кб
1 гб (гигабайт) = 1024 мг
Const n=
var a:array [1..n] of integer; (целый)
i,k, i_max: byte; max, sum:integer;
begin
randomize; или for i:=1 to n do
for i:=1 to n do readln(a[i]);
a[i]:=random (100);
k:=0
for i:=1 to n do
if a[i]<0 then k:=k+1];
max:=0; i_max:=0;
for i:=1 to n do
if a[i]>max then begin max:=a[i]; i_max:=i; end;
sum:=0;
for i:=i_max to n do
sum:=sum+a[i];
writeln('Количество отрицательных элементов ',k);
writeln('Сумма элементов ', sum);
readln;
end.
Program naimen;
Var A, B: integer;
begin
Write ('Введите число А=');
Read (A);
Write ('Введите число B=');
Read (B);
If A<B then
Write ('Наименьшее число А')
else Write ('Наименьшее число В');
end.
