Ответ:
Сразу вверх, затем вниз, потом направо, и в конце налево.
Var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if (i mod 3 = 0) and (i mod 5 <> 0) then s:=s+i;
writeln(s);
end.
//PascalABC.Net 3.2
begin
var x:=readinteger ('Введите x: ');
var sum:=0;
repeat
sum+=x mod 10;
x:=x div 10;
until x=0;
writeln ('Сумма цифр: ', sum);
writeln ('Сумма заканчивается на 3: ', (sum mod 10)=3);
writeln ('Сумма четная - ', sum.Iseven);
end.
Формула: I=Ki и N=
K =30 N=128 найти I
решение
N= <span> i =7 бит</span>
<span>I =Ki =30*7 =210 бит
</span>