Объяснение:
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.
1. с
3.а
4.так то иерхарический, но тут скорее вербальный подойдёт
6b
7b
9.процесс замены реального объекта (процесса, явления) моделью, отражающей его существенные признаки с точки зрения достижения конкретной цели; скорее b
12.b
<span>13. с (совокупность записанных на языке математики формул, отражающих те или иные свойства объекта-оригинала или его поведение)</span>
1) 0,625Кбайт
2) 112,5Кбайт
3) 12890,625Кбайт
4) прибл.48 сек
5) 640 * 480 *5 = 1536000(бит)/8/1024=187,5Кбайт
Program otvet0x40;
var x,i:integer;
begin
for i:=0 to 40 do begin
x:=sqr(i)+i+41;
write(' x(',i,')=',x);
end;
<span>end. </span>
Вроде 200
всего символов 9 это означает что один символ 4 бита (2^3 (8) <9 <2 4 (9))
длина пароля 15
4 * 15 . =60 бит = 8 байт ( 60 /8 округляем в большую сторону)
25 * 8 =200
