Объяснение:
1.
<u>n</u><u> - исходное число,
</u>
<u>sum</u><u> - сумма четных чисел.</u>
<u />
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln(sum);
end.
2.
<u>str </u><u>- строка;
</u>
<u>len </u><u>- количество символов в строке;
</u>
<u>let_s, let_b </u><u>- количество строчных (маленьких) и прописных (больших) букв.</u>
<u />
var
str: string;
i, len, let_b, let_s: byte;
begin
readln(str);
len := length(str);
let_b := 0;
let_s := 0;
for i:=1 to len do
if (str[i] >= 'a') and (str[i] <= 'z') then
let_s := let_s + 1
else
if (str[i] >= 'A') and (str[i] <= 'Z') then
let_b := let_b + 1;
writeln((let_s/len)*100:5:2);
writeln((let_b/len)*100:5:2);
writeln;
end.
computer science -<span> информатика</span>
..........................................................................
Это рекурсивный вызов процедуры. При первом вызове F(7) по условию
if n>1 then ... будет вызов этой же процедуры f(n div 2); или f(3), далее, т.к. 3>1, то снова будет вызвана процедура f(3 div 2) или f(1), теперь не выполняется условие n>1, следовательно, будет выполнен оператор <span>write ('**'); - напечатаются две звездочки, после выхода из процедуры продолжится выполнение процедуры при втором вызове - будут напечатаны еще 2 звездочки, затем продолжится выполнение при первом вызове - еще будут напечатаны 2 звездочки. В результате вызова f(7) будут напечатаны 6 звездочек ******.</span>
<span>Программа, относящаяся к прикладному программному обеспечению:
</span><span>1) AutoCAD</span>
Данные сохраняются в жестком диске . а после выключения они не могут удолиться