Код Pascal123456789Var n,k: Integer;BEGINWriteln(Введите N: ); Readln(n);Writeln(Введите K: ); Readln(k);If n mod 4=0 Then Writeln(4*k)Else If n mod 4=2 Then Writeln(4*k+2)Else If n mod 4=3 Then Writeln(4*k+3);END.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.