<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
Writeln(a[:a.IndexMax].Where(x->(x>=1) and (x<=12)).Count)
end.
<u>Пример</u>
n= 15
3 12 -1 10 -7 18 10 19 8 9 -2 4 0 19 13
4
<em>А вот так учат писать эту же программу в школе...</em>
const
nn=100;
var
a:array[1..nn] of integer;
i,n,imax,k:integer;
begin
Randomize;
Write('n='); Read(n);
for i:=1 to n do begin
a[i]:=Random(41)-20;
Write(a[i],' ');
end;
Writeln;
imax:=1;
for i:=2 to n do
if a[i]>a[imax] then imax:=i;
k:=0;
for i:=1 to imax do
if (a[i]>=1) and (a[i]<=12) then k:=k+1;
Writeln(k)
end.
<u>Вот отсюда и вопрос: для чего учить писать длинно, сложно и малопонятно?</u>
32*8/64=4 бита вес 1 символа, мощность алф. 2^4=16
2 PSD формат, так как файлы Сохраняются в нем
Program getar;
uses crt;
var
S,ur:real;
god:integer;
begin
god:=0;
s:=100; //площадь
ur:=20; // урожайность
while s<=120 do
begin
god:=god+1; // подсчет лет
s:=s+((s/100)*5); // площадь ув. на 5%
ur:=ur+((ur/100)*2);// урожайн. ув. на 2%
end;
writeln('Cherez ',god,' goda ploshad budet bolshe 120 ');
end.
мне трудно объяснять на словах держи программу в ней алгоритм подсчета и тд..
<em>Вначале я Вам напишу простой перевод:</em>
<em>1 байт = 8 бит </em>
<em>1 Кбайт = 1024 байт</em>
<em>1 Мбайт = 1024 Кбайт</em>
<em>1 ГБ = 1024 МБ
</em>
<em>Первая задача - Гбайт в Бит:</em><span>
<em>Для того, чтобы перевести Гбайты в Биты, нужно количество Гбайт умножить на 1024 ещё раз умножить на 1024 и ещё раз умножить на 1024 и потом умножить на 8. У нас получится ответ, который вы ищете, Например:</em>Возьмем 1 Гбайт и переведём его в биты, распишу по действиям:1)1*1024 = 10242)1024*1024 = 10485763)1048576*1024 = 10737418244)1073741824*8 = 8589934592 <u>Ответ: 8589934592 Бит.</u><em>Вторая задача - Бит в Байт:</em><em>Для того, чтобы перевести Биты в Байты, нужно количество битов поделить на 8, т.к 1 байт = 8 бит(об этом писал выше) и получим нужный ответ, Например: Опять возьмём 1 Бит и переведём его в Байты(напишу в нескольких видах, если будет непонятно):</em></span>
- первый вид<span>
1/8 = 0,125 - второй вид1:8 = 0,125 - третий вид<em><u>Ответ: 0,125 Байт.</u></em><em>Вот так у нас получилось 2 ответа:</em><em>Первый - 8589934592 Бит и Второй 0,125 Байт.</em></span>