name_list = [
'Егор', 'Егор', 'Дмитрий', 'Дмитрий',
'Егор', 'Егор', 'Егор', 'Дмитрий',
'Егор', 'Егор', 'Егор', 'Дмитрий',
'Егор', 'Дмитрий', 'Егор', 'Дмитрий'
]
print(name_list.count('Дмитрий'))
Const n: array[1..10] Of string = ('один','два','три','четыре','пять',
'шесть','семь','восемь','девять','нуль')
;
Var b,c: string;
i,j: integer;
Begin
b := '1234567890';
Write ('Введите цифру / число : ');
read (c);
For i:=1 To length(c) Do
Begin
j := pos(c[i],b);
write (n[j],' ');
End;
<span>End.</span>
Log2(16) = 4 бит
log2(2) = 1 бит
4/1 = 4 раза
21 кбайт * 4 раза = 84 кбайт был размер у того
Как называется схема совокупность последовательных шагов схема действий приводящих к желаемому результату
100% Алгоритм
Program prog;
uses crt;
var a,b,i,p: integer;
begin
clrscr;
p:=1;
write('Введите значение а = '); readln(a);
write('Введите значение b = '); readln(b);
if b>=a then begin
for i:=a to b do
p:=p*i;
writeln('Произведение Р = ', p);
end
else
writeln('a > b');
end.