program
esep5;
var
n:integer;
begin
writeln(‘san
engiz’,’n');
readln(n);
if
(n mod 3=0) then writeln('yes')
else writeln('no');
<span>end.</span>
<span>Потому что слово "динамичный" от слова "динамика"-изменение, подстраивание. После изменение формулы или данного связанного с формулой моментально (ну или не моментально-зависит от производительности ПК) изменяется часть таблицы, подвластная этой формуле. </span>
var a:real;
b:integer;
begin
readln(a);
b:=round(a*1000)mod 1000;
write(b div 100 + b mod 10 + b mod 100 div 10);
end.