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.
Витя - х
Костя - y
3х = y
x = y - 18
находим y и х:
y=3y-54
<u>y=27</u>, значит
<u>x=27-18=9</u>
<u>Ответ: Костя решил 27 задач, Витя решил 9 задач</u>
В первом тексте на один символ отводится 5 бит (2^5 = 32), во втором 6 бит (2^6 = 64). Поэтому информационный объем второго текста в 6/5 = 1,2 раза больше
Действие с повторением называются Циклы.
Примером цикла из жизни может послужить анекдот:
Программист решил помыть голову шампунем
Читает инструкцию
1. Нанести шампунь
2. Намылить
3. Смыть
4. Процедуру повторить
Ну и он зациклился.