Задача на Паскаль! СОСТАВЬТЕ БЛОК СХЕМУ: var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln(sum);
end.

Объяснение:

Выполнение команд в линейном алгоритме идет линейно, то есть друг за другом в заданном порядке и однократно.

Пример линейного алгоритма:

 Начало

 Сделать уроки

 Пойти гулять  

 Вернуться домой  

 Поесть ужин

 Посмотреть телевизор

 Лечь спать

 Конец

В данном случае это план того, что я буду делать после того, как  вернусь из школы и пообедаю.

Пример линейного алгоритма для ГРИС «Стрелочка»:

НАЧАЛО

 ПОВОРОТ

 ПОВОРОТ

 ПОВОРОТ

 ШАГ

 ШАГ

 ШАГ

 ПОВОРОТ

 ПОВОРОТ

 ПРЫЖОК

 ПРЫЖОК

 ПРЫЖОК

 ПОВОРОТ  

 ПОВОРОТ  

 ПОВОРОТ

 ШАГ

 ШАГ

 ПОВОРОТ  

 ПОВОРОТ

 ПОВОРОТ

 ШАГ

 ШАГ

 ШАГ

КОНЕЦ

Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48.

121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. Подходят 3, 4, 6, 8.

Учитывая, что в числе 121 три разряда, значит число 48 делилось всего три раза. 
Число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления.
Число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков.
Число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2.
Остаётся число 6. Проверим

49/6=8 |1
8/6 = 1 |2
1/6=0 |1

121(6)