Var A:array[1..10] of Integer;
i,N,k,l,j:integer;
begin
Readln(N);
For i:=1 to N do
A[i]:=Random(1,10);
For i:=1 to N do
Write(A[i],' ');
Writeln;
For i:=1 to N do
If (A[i]>=6) and (A[i]<=20) then
k:=k+1;
Writeln('количество значений лежащих в промежутке [6 до 20] ',k);
For i:=1 to N-1 do
For j:=i+1 to N do
If A[i]*A[j]>10 then
l:=l+1;
Writeln('количество значений п<span>роизведение которых больше 10</span>',l);
end.
Обясните, зачем нужен символ "$"? Ну и проверку на длину строки в 50 символов, я думаю уже сами разберетесь. Просто подсчитайте количество символов у строке и if-фом задайте условие...
Компьютерная память является одним из наиболее главных вопросов устройства компьютера, так как является важнейшей частью его устройства, а именно, компьютерная память обеспечивает поддержку одной из наиважнейшей функций современного компьютера, - способность длительного хранения информации.
Вместе с центральным процессором запоминающее устройство являются ключевыми звеньями.
Все персональные компьютеры используют три вида памяти: оперативную, постоянную и внешнюю (различные накопители).
Также компьютерная память классифицируется по различным признакам.
В данной работе рассмотрим понятия компьютерной памяти, ее виды и классификации в теоретическом и практическом контекстах.
1) переносим запятую на три знака вправо: 12.89
на три знака влево (степень -3) 0.0019854
на пять знаков вправо (степень +5) 3250120
2)1998.012=1998.012*10^0=19980.12*10^(-1)=199801.2*10^(-2)=1998012*10^(-3)=199.8012^10^(-1)
3) 652.1324=6.521324*10^(-2)
0.0005987=5.987*10^(-4)
528439=5.28439*10^(5)