Для защиты от тупого копирования. gcc 4.8.4
Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
<span>
если что то не понятно просто спроси и я обьясню :)</span>
// PascalABC.NET 3.1, сборка 1246 от 23.05.2016
begin
var s:=ReadAllLines('1.txt');
Writeln('Считано:'); s.Println(NewLine);
var a:=s.Select(x->x.Replace(';',' ')).ToArray
.JoinIntoString.ToReals.Where(x->(x>0) and (Frac(x)=0))
.Select(x->Trunc(x)).ToArray;
Writeln('Получено:'); a.Println();
Writeln('Справочно: тип А - ',a.GetType);
end.
<u><em>Тестовое решение</em></u>
Считано:
1;-312;-41.11;412.11
43.63;-15;27;7.62;3;-14
1342;23.23;-32.19;18
Получено:
1 27 3 1342 18
Справочно: тип А - System.Int32[]
<u>Тестовый файл 1.txt дан во вложении.</u>
Идет 4 бита для черно-белых изображений на пиксель.
1. 4*4*4=64
64/8 бит = 8 байт
2. 6*4*4=96
96/8=12
3. 3*6*4=72
72/8=9 байт
Очевидно, это двоичная последовательность. Здесь 64 разряда (бита).
Их можно разбить ровно на 8 байт (т.к. в одном байте 8 бит):
00110101
00100000
11100001
11100000
11101011
11101011
11101110
11100010
Если перевести эти двоичные значения в шестнадцатеричные числа, то получим: 35 20 e1 e0 eb eb ee e2
а если в десятичные числа, то: 53 32 225 224 235 235 238 226
Для любого из этих трёх представлений (двоичного, шестнадцатеричного и десятичного) можно найти кодовые таблицы, по которым легко определить символы текста, соответствующие этим кодам. Чаще всего в таких таблицах используют шестнадцатеричную форму чисел.
Кодовые таблицы бывают разные, но для широко используемой кодировки Windows-1251 в результате перевода этих значений получится такой текст:
<u>5 баллов</u>