Вычислить сумму А=5+10+15+…+N, используя операторы
While и Repeat
При a:=0;
i:=0;
тело цикла : a:=a+i;
i:=i+5;
Первая программа с while, вторая с repeat

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

исполняемые файлы:

test.exe = 459 кб

photo.exe = 117 кб

letter.com - 198 кб

графические файлы:

nature.jpg = 314 кб

program.bmp = 361 кб

текст. документы:

comp.doc = 238 кб

получается порядок:

test.exe 

program.bmp

nature.jpg

comp.doc

letter.com

photo.exe 

из-за того, что там не было древесины, люди писали на глинянных тощечках. они колышками выдавливали символы.