1)
var n,min:integer;
begin
write('n = ');
readln(n);
min:=9;
while n>0 do
begin
if n mod 10 < min then min:=n mod 10;
n:=n div 10;
end;
writeln('min = ',min);
end.
Пример:
n = 24815
min = 1
2)
var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
if k1>k2 then writeln('кол-во четных больше чем нечетных цифр')
else if k2>k1 then writeln('кол-во нечетных больше чем четных цифр')
else writeln('количество четных равно количеству нечетных');
end.
Пример:
n = 1234
количество четных равно количеству нечетных
A AND (NOT(B))
как я поняла, надо записывать так :)
Подставим в блок-схему вместо х число 5. В блоке условия получим выражение 5>18? Это выражение ложно, поэтому выполнение задачи будет дальше по ветке "нет". В вычислительном блоке х примет такое значение:
х=2*5+1=10+1=11
следующий блок изменяет значение х
х=2*11=22
ответ: переменная х примет значение 22
на Pascal фрагмент этого алгоритма будет выглядеть так:
F X<18 THEN BEGIN
X:=2*X+1;
X:=2*X;
END
ELSE
X:=7-5*X
END;
DLP не используется это технология защиты личных даны)
Div - целая часть от деления
mod - остаток от деления
<span>391 div 100 = 3
(391 mod 100) div10 = 91 div 10 = 9
391 mod 10 = 1
</span><span>391 div 100+(391 mod 100)div10 +391mod 10 = 3+9+1 = 13</span>