#include <iostream>
#include <fstream>
using namespace std;
int main()
{
fstream file_in("input.txt", ios::in);
fstream file_out("output.txt", ios::out);
int n, max = -1001;
file_in >> n;
while (n != 0)
{
if (n > max) max = n;
file_in >> n;
}
if (max != -1001) file_out << max;
file_in.close();
file_out.close();
return 0;
}
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var M:=ReadInteger('M=');
var (s,n):=(0,1);
while s<=M do begin
s+=n*n; n+=1
end;
Writeln('Сумма ',s)
end.
32=2^5,значит один пиксель займёт 5 бит (520*450*5)
11 букв = 11 байт = 88 бит. Это при 8-битной кодировке типа ASCII или ANSI.
Или 88*2 = 176 бит при 16-битной кодировке Unicode.