Постановка : дано натуральное число n. если оно делится на 4, вывести на экран ответ n=4k (где k- соотв. частное); если остаток от деления на 4 равен 1, n=4k+1; если остаток от деления на 4 равен 2, n=4k+2; если остаток от деления на 4 равен 3, n=4k+3 например, 12=4*3, 22=4*5+2 составить алгоритм для отчета в паскале.

Var n: integer;
  begin
    write('задайте число n: ');
    readln(n);
    writeln((n div 4)*4+(n mod 4));
end.
{ или по другому }
{var n,m,ost: integer;
begin
  write('задайте число n: ');
  readln(n);
  m:=n div 4; 
  ost:=n-m*4;
  writeln(m*4+ost);
end.}

не знаю как это учат в школе, но можно сделать так

Переведем десятичную дробь в простую 21,5 = 215 / 10

переведем числитель и знаменатель

Остатки от деления:

      215 |  8 => 7  

       26 |  8 => 2  

        3 |  8 => 3  

Записываем в обратном порядке

Остатки от деления:

       10 |  8 => 2  

        1 |  8 => 1  

Записываем в обратном порядке

Теперь делим в столбик в восьмиричной сс (написать это в тексте нереально конечно)

32 - 2*12 = 32 - 24 =  6  => 2

спускаем 7

67 - 5*12 = 67 - 62 = 5 => 25

дальше пойдут дроби

50 - 4*12 = 50 - 50 = 0 => 25.4

ответ  25.4

n = int(input())

a = n // 100

b = n // 10 % 10

c = n % 10

print(a + b + c)

Pascal:

var

 N: word; { Трехзначное число }

 t1, t2, t3: byte; { Цифры трехзначного числа }

begin  

 write('Введите трехзначное число: ');

 readln(N); { <-- вводим трехзначное число }

 writeln;

 t3 := N mod 10; { <== третья цифра }

 N := N div 10;  { <== число созданное первыми двумя цифрами }

 t2 := N mod 10; { <== вторая цифра }

 t1 := N div 10; { <== первая цифра }

 writeln('Сумма цифр: ', t1 + t2 + t3);

end.