#include <iostream>
int main()
{
<span> //3</span>
<span> int s = 0;</span>
<span> for (int i = 1; i < 100; ++i)</span>
<span> if (!(i % 2)) s += i;</span>
<span>std::cout << s << std::endl;</span>
<span> //4</span>
<span> int p = 1;</span>
<span> for (int i = 1; i < 10; ++i)</span>
<span> p*= i;</span>
<span> std::cout << p << std::endl;</span>
<span> //5</span>
<span> s = 0;</span>
<span> p = 1;</span>
<span> for (int i = 1; i < 10; ++i){</span>
<span> if (!(i % 2)) s += i;</span>
<span> p *= i;</span>
<span> }</span>
<span> std::cout << s << " " << p << std::endl ;</span>
<span> //6</span>
<span> p = 1;</span>
<span> for (int i = 1; i < 10; ++i)</span>
<span> p += i*i;</span>
<span>std::cout << p << std::endl;</span>
<span>//7</span>
<span> s = 0;</span>
<span> for (int i = 1; i < 100; ++i)</span>
<span> if ((i % 2)) s += i;</span>
<span> std::cout << s << std::endl;
</span>
<span> return 0; </span>
<span>}</span>
Procedure wr( ch: char; c: integer );
var i: integer;
begin for i := 1 to c do write(ch); end;
procedure square( n: integer );
var i: integer;
begin wr( '*', n ); writeln;
for i := 2 to n-1 do begin write( '*' ); wr( ' ' ); writeln( '*' ); end;
wr( '*', n ); writeln; end;
Во первых вычислим сколько битов имеет рукопись автора для этого 16•64•1024•2048=147483648 битов. нам известно что в одном байте 8 битов. из этого следует 147483648:8=131072 байта. в мегабайте 1000000 байтов. из этого 131072:1000000=0,131072 мегабайта рукописи. а еще нам известно что рукопись имеет 2650 иллюстраций по 6 мегабайткаждая.из этого выходит 2650•6=15900 мегабайт
для того чтобы узнать сколько ушло памяти нафлешке 15900+0,131072= 15900,131072≈15900,1311
в одном гиге 1000 мегабайт
15900,1311:1000= 15,9001311 гигабайт. в общем флеш карта заполнена этой рукописью
А 93 в какой системе счисления?
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadArrInteger(10).Where(x->x>0).Sum());
end.