Ответ:
program pred;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
while i <= n do begin
if i mod 2 = 0 then
s := s + i;
Inc (i);
end;
WriteLn ('Сумма = ', s);
ReadLn;
end.
- - - - - - - - - - - - - -
program post;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
repeat
if i mod 2 = 0 then
s := s + i;
Inc (i);
until i > n;
WriteLn ('Сумма = ', s);
ReadLn;
end.
Делишь число на основание системы счисления в которую переводишь т.е. на 16, до тех пор,пока не получится частное меньше, чем делитель.
Остатки которые получились переводишь в соответствие с алфавитом новой системы счисления.Записывать с последнего остатка.
999 = 3е7
10985 = 2ае9
Зубр - I
Зубр & Тур - II
Тур - III
Решение: I+III - II (18000+12000)-5000=25000
Машины первого поколения строились на основе электронных (электровакуумных) ламп.