Question

Постановка задачи: Дано натуральное число 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 помогите составить пожалуйста алгоритм для отчета в паскале.

Answer 1

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.}