Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Квартира Задача 6.14 учебн. Грицанова
program kvartira; var k, f, n, p, q : integer; begin writeln ('Введите номер квартиры, количество этажей и количество квартир на этаже:'); readln (k, f, n); p := ( k - 1) div ( f * n ) + 1; q := ( k mod ( f * n + 1 ) - 1 ) div n + 1 ; writeln ( 'Квартира № ', k, ' аходится в подъезде № ', p, ' на этаже № ', q ); end.
run
|
edit
|
history
|
help
0
nomer8
Сортировка массива цифр
practica 3 ejercicio B6
String compare
eje8
https://m.facebook.com/
zadacha8
Prioject 19 - Counting Sundays
test23
Busquedad Pascal