Код в приложении
Компилятор - Pascal ABC.NET
Я смог решить только 7
program nomer;
var a,n,x:integer;
begin
while n<=0 do
begin
writeln('Введите число');
readln(x);
if (x mod 2)=0 then a:=a+x;
writeln('хотите закончить ввод? да=1, нет=0');
readln(n);
end;
writeln(a);
end.
На Pascal
1 А - С[7] Б- T:array [1..43] of Integer; В - G1:array[1..123] of Integer; Г- K[44] Д- X[i+6] Е- P:array [1..23] of Integer;
2- A- K:array [1..25] of Integer;
for k:=1 to 25 do a[k]:=random(-30;250);
Б-
Многоуровневый список - это список,который основывается на отображении строк списка разными уровнями(от 1 до 9 уровня).То есть каждая из строк списка может включать подпункты различных уровней.Для обозначения в многоуровневом могут использоваться как маркеры,так и цифры .