//////////////////////////////////////////
1. program ex1;
uses crt;
var i, count : integer;
begin
count:=0;
for i:=1 to 9999 do
begin
if (i mod 5 = 0) and (i mod 7 = 0) then
begin
writeln(i);
count:=count+1;
if count=10 then
break;
end;
end;
end.
2. program ex2;
var sum, count, n : integer;
begin
count:=0;
n:=9999;
sum:=0;
while not (n = 0) do
begin
readln(n);
if (not n mod 2 = 0) and (n>0) then
begin
sum:=sum+n;
count:=count+1;
end;
end;
writeln('Ср. арифм. = ', sum/count);
end.
3. program ex1;
var price, i: integer;
begin
write('Введите цену товара за 1 кг. :');
readln(price);
for i:=1 to 15 do
write(i:6, '|');
writeln();
for i:=1 to 15 do
write('-------');
writeln();
for i:=1 to 15 do
write((price/10*i):6,'|');
end.
Var
a, b, c, d: byte;
begin
for a := 1 to 5 do
begin
for b := 1 to 5 do
begin
c := (c = 10 ? 1 : c + 1);
write((a mod 10 = 1 ? c : 16 - c):3);
end;
writeln();
end;
end.
Для начала надо найти i(вес 1 символа, т.е чему равен 1 символ в битах)
Для этого есть формула N=2^i ; N(Мощность алфавита)
Подставляем в формулу мощность алфавита.
64=2^6 значит i=6 бит, а как получил 6 тут просто нужно , 2×2×2×2×2×2=64, кол.двоек означает вес 1 символа.
Теперь, чтобы найти I(3 страниц)нужно (кол.страниц×кол.строк×кол.символов×вес 1 символа)
I=3×40×60×6=43'200 бит, теперь переведем в байты по условию задачи.
43'200 бит=43'200÷8=5'400байт
Ответ:5'400 байт<span> количество информации содержат 3 страницы.</span>
S = input('Какое расстояние до дачи в километрах?: ')
B = input('Какое количество бензина в литрах, которое потребляет автомобиль на 100 километров пробега?: ')
C = input('Какая цена одного литра бензина?: ')
Price = (int(S) / 100) * int(B) * int(C)
print(Price)