Нужно десятичное число постоянно делить в столбик на 16 и потом делить делитель на 16. сейчас наглядно покажу.
331 будем переводить
вот как показано на фото делишь и потом записываешь число с конца(стрелочкой показано), но в 16 системе нет чисел 10,11,12,13,14,15
вместо них идут буквы
10-A
11-B
12-C
13-D
14-E
15-F
это надо помнить
Из 7-ми литровой выливаем в 3-х литровую,из нее в 4-х.в 7-ми литровой осталось 4 литра,заливаем 3 в 3-х литровую.из нее в 4-х литровую доливаем литр.получается что в 3-х осталось 2 литра,что и требовалось сделать
Что типа должно получиться: S=3150;
program Summ;
uses Crt;
var S, i, a, n: integer;
begin
ClrScr; {Очистка экрана}
S:=0;
a:=5;
n:=(200-100) div a; {Количество слагаемых}
for i:=0 to n do
s:=S+(100+i*5);
WriteLn (' S=',s); {Вывод результата}
ReadLn;
end.