Ответ: 1024
using System;
class Program { static void Main(string[] args) { double n = Math.Pow(2.00, 12.00); long howMuch = 0;
SumOfDigits sod = new SumOfDigits(); for (int i = 0; i < n; ++i) { int SumI = sod.CountSumOfDigits(i);
if (SumI % 4 == 0) { howMuch++; } } Console.WriteLine(howMuch); //Console.WriteLine(n); Console.ReadLine(); } } class SumOfDigits { public int CountSumOfDigits(int x) { int sum = 0; while (x > 0) {
sum += x % 10; x /= 10; } return sum; } }
Для элементарных логических функций с двумя переменными если значение переменных истина, то и результат будет истина.
Ответ: 1
Var n, s, a, p, v:integer;
begin
write('N = '); readln(n);
s:=n div (3*4*4);
a:=(n mod (3*4*4)) div (4*4);
p:=(n mod (4*4)) div 4;
v:=n mod 4;
writeln('s = ',s,' a = ',a,' p = ',p,' v = ',v);
end.
Пример:
N = 2061
s = 42 a = 2 p = 3 v = 1
Один символ кодируетсяя 1 байтом
на одной странице 30*70=2100 символов
84000:(2100*8)=5