Дано натуральное число N. Если оно делится на 4, вывести на экран ответ N=4k (где k-соответствующее частное); если остаток от деления на 4 равен 1, N=4k+1; если остаток от деления на 4 равен 2, N=4k+2; если остаток отделения на 4 равен 3, N=4k+3 — Pascal(Паскаль)

program bsc;

var n,k:integer;
begin write('введите n'); readln(n);
      k:=n div 4;
      case n mod 4 of
      0: writeln( n,'=4*', k);
      1: writeln( n,'=4*',k,'+1');
      2: writeln( n,'=4*',k,'+2');
      3: writeln( n,'=4*',k,'+3');
      end;
end.

Похожие записи/страницы:

Leave a Comment

+ 81 = 90