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
searchtree
practica 9 ejercicio 6
Huong11a2@
ariketa 01
05 ariketa
Ipis unazad ulancana lista
08 Ariketa WHILE
Урок 3 задача на вывод 1 и 0 как функция целого
bbbrandomchar_0.1
exRecords