<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var (a,b):=(Random(0,10),Random(0,10));
if a=b
then Println(a,'=',b)
else Println(Random(0,10),Random(0,10));
end.
Б может быть только в конце, т.к. там не точек
Число в адресе не может быть больше 255, поэтому сочетания АГ, ГВ и АВ недопустимы. Ответ: ВГАБ.
Задача 1 Программа проверена для первых четырех элементов (=16)
Ответ:
var a:array[1..5]of integer;
i,m:integer;
begin
m:=0;
write('Массив: ');
for i:= 1 to 5 do
begin
a[i]:= random(21)-10;
write(a[i]:4);
if (a[i]>0) and (i mod 2 = 0) then m:=a[i]
end;
writeln;
for i:= 1 to 5 do
if (a[i]>0) and (i mod 2 = 0)and (a[i] < m) then m:=a[i];
if m=0 then writeln ('В массиве нет положительных элементов среди элементов с чётными номерами')
else writeln('Наименьший положительный элемент среди элементов с чётными номерами равен ',m)
end.
Ответ 2. Вот смотри. У тебя есть два множества, которые у меня на рисунке. Мысленно ну или на бумаге подели этот рисунок на части, в которых может быть икс и при этом, где буду меняться условия. т.е. вот тебе три части, для которых требуются разные условия. в самом низу там наискосок неаккуратно (извини) написала все возможные варианты. в первом тебе все равно, где множество а, у тебя уже есть единица в одном из слагаемых, во втором тоже неважно, там следование в любом случае будет равно единице. а вот в третьем нужно подобрать такое расположение множества а, чтобы не было операции следования в ноль из единицы, нужно из нуля в ноль. т.е. чтобы в момент нахождения в третьем отрезке, мы не находились в множестве а. из представленных вариантов расположения подходит только второй