В операторах Dat[1] := 7; ... ; <span>Dat[10] := 9; задаются элементы массива.
</span><span>m := 0; n := 0; - начальные значения переменных m и n.
В цикле </span>for k := 1 to 10 do ... каждый элемент массива сравнивается с текущим значением переменной m (<span>Dat[k] >= m). Если элемент больше, то значения переменных m и n меняются: в переменной m запоминается значение элемента массива, в переменной n - значение номера (индекс) этого элемента. Таким образом, после выполнения цикла значения переменных будут: m=10; n=8. На экран будет выведено значение 8 (это номер последнего максимального элемента массива).
Ответ: 8</span>
Программа вылетает т.к. много значений перебирает, если не хочется подобного просто смените ограничение.
var i,a,b,c,d:integer;
begin
for i:=1000 to 9999 do begin
a:=i mod 10;
b:=(i div 10) mod 10;
c:=(i div 100) mod 10;
d:=(i div 1000) mod 10;
if (a=b) and (b=c) and (c=d) then writeln ('odinakovie cifri - ',i);
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then writeln('ne odinakovie cifri - ',i);
end;
X - задуманное число.
(x*3+9+15-3)/3-x = (3x+21)/3-x = x+7-x = 7
1. А.
2. В.
3. В.
4. N = 2^i.
16 = 2^i.
I = 4 бита.
Ответ: А.
5. Б.
6. А.
7. Б.
8. Г.
9. V = H*T*I*K.
T = V/H*I*K = (60*2^23)/22000*16*2 = 15*2^25/2^5*22000 = 3*2^20/4400 = 3 145 728/4400 ~714,9 секунд ~ 11,9 минут ~ 12 минут.
Ответ: Б.
10. N = 2^i.
N = 2^8.
N = 256.
Ответ: В.
Ответ:
var
a,x,b,c: real;
begin
write('Введите стоимость покупки = ');
readln(x);
a := x/100;
a := Trunc(a);
a := a*5;
b := x/50;
b := Trunc(b);
b := b*2;
c := x*0.03;
if (a>b)and (a>c)
then
writeln('RP')
else
if (b>a) and (b>c)
then
writeln('BB')
else
if (c>a) and (c>b)
then
writeln('MM')
else
writeln('Суммы равны, Алена выбирает <MM>')
end.