Var
a, b, i, j, found: integer;
begin
readln(a, b);
for i := a to b do
begin
found := 1;
for j := 2 to round(sqrt(i + 1)) do
begin
found := found * (i mod j);
if found = 0 then break;
end;
if found <> 0 then write(i, ' ');
end;
end.
СА 16=202 10. Более подробное решение во вложении.
Дано:
K=1024*528
i=32 бит
I-?
Решение:
I=K*i
I=1024*528*32 бит=17301504 бит=2,0625 Мбайт
Ответ: примерно 2 Мбайт
Ответ: 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; } }
2 а а другое не знаю сори бро