Після якого
службового слова
записують умову?
1. input
2. if
3. for
4.in
10))Якою має бути
команда виведення
привітання, що
складається з імені,
Введеного до текстового
поля, та тексту
привітання, обраного зі
Списку?
1. Ib2 = Label (text = ent.get() +",
Ibox.get(select))")
2. Ibl2 = Label (text = ent.get() +
", " + lbox.get(select))
3. Ibl2 = Label (text
=lbox.get(select) + ">" +
ent.get()
4. Ibl2 = Label (text =
ent.get(select) +"," +
Ibox.get(select))
St - в любой момент степень 10, пусть St = 10^k. Тогда N Mod (St * 10) Div St получает (k + 1)-ую цифру справа в десятичной записи числа N. Затем, если она чётная, то вместо N рассматривается число N Div (St * 10) * St + N Mod St - число, получаемое из N вычитанием (k + 1)-й цифры. Если нечетное - берется следующее k.
Например, для N = 1234567 будет выведено "ответ: 1357", а для N = 24680 будет выведено "ответ: 0".
N = 15;
Var A:array[1..N] of integer;
i,Kc,Kn,Sn:integer;
Begin
Kc:=0;
Sn:=0;
Kn:=0;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] mod 2 = 0 then Kc:=Kc+1;
if A[i] mod 2 <> 0 then
Begin
Sn:=Sn+A[i];
Kn:=Kn+1;
End;
if A[i]>0 then A[i]:=0;
End;
WriteLn;
WriteLn('Количество чётных: ',Kc);
WriteLn('Среднее арифметическое нечётных: ',Sn/Kn);
Write('Новый массив:');
For i:= 1 to N do
Write(' ',A[i])
End.
Пример:
Исходный массив: -1 4 -8 9 -6 -10 0 3 9 -1 1 4 -2 -6 3
Количество чётных: 8
Среднее арифметическое нечётных: 3.28571428571429
Новый массив: -1 0 -8 0 -6 -10 0 0 0 -1 0 0 -2 -6 0