На блок-схеме первым прямоугольником обозначены входные данные
А=5, В=4
Ромб это логический блок, в нем выполняется операция сравнения чисел А и В
В нашем случае в логический блок мы принимаем А=5 и В=4, выполняя указанное действие в блоке получаем ответ НЕТ, следовательно дальнейший процесс пойдет по ветке НЕТ
Перейдя по ветке НЕТ мы попадаем в блок действия, в котором выполняются следующие действия:
1) Новому числу А присваивается значение суммы старого А=5 и единицы (5+1), в итоге получается новое значение А=6
2) Переменная S является суммой значений новой переменной А=6 и старой переменной В=4. Следовательно, вторым действием будет проводиться сложение значений двух переменных: А и В. 6+4=10
На этом в блоке действие собственно действия заканчиваются и мы переходим далее по ветке
Проходя дальше, приходим к конечной точке, а точнее выводу полученного значения S в последнем действии блока действие
Следовательно, S=10
Program zadanie;
Var a,b,s1,n:integer;
Begin
Writeln('Введите 3-х значное целое число');
readln(s1);
If (s1>=100) and (s1<=999) then begin
for n:=100 to s1 do begin
a:=n div 100+(n div 10) mod 10;
b:=(n mod 100) mod 10+(n div 10) mod 10
end;
if a<b then writeln(b,a)
else writeln(a,b)
end;
writeln('Неправильное число.')
end.
Можно цикл запустить наооборот:
for i:=n downto 1 do
Writeln(x[i]);
Ответ: 3) Наталья, т.к. первая бувка не является гласной, и четвертая буква согласной.
Const n=10 ;var A: array [1..n] of integer;p, min, i, : integer;beginrandomize;for i:= 1 to n dobeginA[i]:= -100 + random (200);write (A[i]: 5);end;writeln;min:=100000000;p:=1;for i:=1 to n doif A[i] < 0 then p:=p*A[i] else Begin if p< min then min:=p; p:=1; End; if p<min then min:=p; writeln ('min p=' , min );end.