Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Номер подъезда и этажа по номеру квартиры, количеству этажей и квартир на этаже
program kvartira; var k, f, n, p, q, r : integer; begin writeln ('Введите номер квартиры, количество этажей и количество квартир на этаже:'); readln (k, f, n); for k := 1 to 60 do begin p := ( k - 1 ) div ( f * n ) + 1; q := ( k - 1 ) mod ( f * n ) div n + 1; //q := ( k mod ( f * n + 1 ) - 1 ) div n + 1; //q := ( ( k - 1 ) mod 20 + 1 ) div 5 + 1; r := ( k mod ( f * n + 1 ) - 1 ) mod n + 1; //writeln ( 'Квартира № ', k, ' аходится в подъезде № ', p, ' на этаже № ', q, ' r= ', r ); writeln ( 'Квартира № ', k, ' подъезд № ', p, ' этаж № ', q ); end; end.
run
|
edit
|
history
|
help
0
Lab1SumWithWhile
Llenar un arreglo (con for)
Unicorn
JOZIANE NEVES DE SOUZA 600630041
practica 7 ejercicio B8
test19
Comparar valores de una columna de una matriz
Lab1SumWithRepeat
nested for loop a(ii)
pizza