решить на Pascal Вариант VI 2. Точно и четко сформулировать условие задачи, которая решается в данной программе:
Program Kr_2_3;
Var
A, B, I : Integer;
S : Integer;
Function Simple (N : Integer) : Boolean;
Var
I : Integer;
S : Boolean;
Begin
I := 2;
S := True;
While (I 0;
I := Succ(I)
End;
If N = 2 Then Simple := True Else Simple := S
End;
Begin
Write('Введите два натуральных числа А и В (B > A, A > 1) ');
ReadLn(A, B);
S := 0;
For I := A To B Do
If Simple(I) then S := S + I;
WriteLn('ответ: ', S)
End.
Задать числа A и B, определить, чему будет равно S.
3. Вычислить сумму
S = K - 2K + 3K - ... + (-1)n - 1 * KN.
4. Сравнить сумму элементов главной и побочной диагоналей квадратной матрицы.
5. Подсчитать количество букв в данной строке

Свойства ComboBox

Объяснение:

Font шрифт назначенный для отображения элементов списка

Height высота компонента

Left расстояние от левой границы компонента ComboBox до левой границы формы

Top расстояние от верхней границы компонента ComboBox до верхней границы формы

Items элемент списка — массив строк. Заполнить его можно во время проектирования нажав на многоточие около этого свойства в окне Oject Inspectror, для работы со свойством Items во время выполнения программы используются методов приведенных в предыдущей статье ListBox

ItemIndex номер элемента, выбранный из списка (нумерация элементов начинается с нуля), если ни одного элемента из списка не выбрано, то значение этого свойства равно -1

Name имя компонента

текст находящийся в поле редактирования

Width ширина компонента

Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45