Var
a, b: integer;
begin
readln(a);
while (inttostr(a).Length > 1) do
begin
b := 0;
foreach c: char in inttostr(a) do
b += strtoint(c);
a := b;
end;
writeln(b);
<span>end.
=======================
var
a, b, e: integer;
d: string;
begin
readln(a);
d := inttostr(a);
while (length(d) > 1) do
begin
d := inttostr(a);
b := 0;
for e := 1 to length(d) do
b += strtoint(d[e]);
a := b;
end;
writeln(b);
<span>end.</span></span>
Давно пользуясь этим антивирусов, но там есть 2-е версии платная и бесплатная.
В начале я выбрала платную, там он проводит проверки автоматически и сам проверяет любые файлы, а так же там открыты и другие функций. Ну а в бесплатной приложения нужно проверять самому,а ещё половина функций закрыта.
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>
Все очень просто.
Сначала мы находим сколько всего точек, ведь каждая точка - это какой то цвет: 1024*768(не умножаем т.к можно сократить). Дальше найдем, сколько занимает места 1 точка: 768*1024*8 /1024*768 бит (Умножили на 1024 и 8, чтобы перевести в биты). 768 и 1024 сокращается, получается 8 бит Теперь формула N(Кол. цветов) = 2^I(инф. обьем) I известно, остается найти N т.е. = 256.