Question

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

Answer 1

Очень запутанное в начале условие. Если число делится на 4, то вывести 4*частное (а частное и есть результат деления на данное число 4)... Получается, что при делении числа на 4 переменной N присвоится значение 4*результат, а это и есть число N.  

program vibor;

var

N,k:integer;                          

begin

writeln('vvedite N');

readln(N);

 

k:=N mod 4;        

case k of

0: writeln(4*k);   

1: writeln(4*k+1); 

2: writeln(4*k+2);

3: writeln(4*k+3);

end;                 

end.