var
a: array[0..9] of integer;
k, i: integer;
begin
k := 0;
for i := 0 to 9 do
begin
readln(a[i]);
if a[i] > 12 then k += 1;
end;
writeln(k);
end.
По формуле а,(b)=a*(b/9)
75,(8)=75*(8/9)
39,(16)=39*(16/99)(а это а,(бс)=а*(бс/99)
Находим сумму:683/9+3877/99=11390/99=115(05)
Проверила несколько раз
var n,i:integer;
Begin
read(n);
for i:= 2 to n-1 do
if n mod i = 0 then writeln('No');
End.
var n,i:integer;
s:string;
Begin
read(s);
for i:= 1 to length(s) do
if s[i]="a" then n:=n+1;
writeln(n);
End.
<span>Алгоритм "дискретности" должен представлять процесс решения задачи как последовательное выполнение простых (или ранее определенных) шагов. Каждое действие, предусмотренное алгоритмом, исполняется только после того, как закончилось исполнение предыдущего.</span>
Например: Ваня купил ручку, чтобы обменять с Мишей на карандаш. Если ручки не будет, то следовательно не будет и карандаша.
А вот "<span>не удовлетворяющего свойству дискретности" Ваня купил ручку и всё на этом закончилось.</span>
Удачи!
A. 1 --- 00012 --- 00103 --- 00114 --- 01005 --- 01016 --- 01107 --- 01118 --- 10009 --- 100110 --- 1010b. 1011 --- 111100 --- 121101 --- 13
1110 --- 14
1111 --- 1510000 --- 1610001 --- 1710010 --- 1810011 --- 1910100 --- 20с. - у какого числа двоичный код --- 10101? --- 21каков двоичный код числа 23? --- 10111d. 32 --- 10000064 --- 1000000