A - номер квартиры, начиная с 1
n - этаж
C:
n = 2*((a-1)/12)+2+((а-1)%12)/7
Pascal:
n := 2*((a-1) div 12)+2+((a-1) mod 12) div 7
выражение в одну строку
% это остаток от деления
a и n переменные целого типа, подразумевается, что происходит автоматическое округление при делении в меньшую сторону
Program n1;
var a: integer;
begin
readln(a);
case a of
1..89: writeln('Остроугольный');
90: writeln('Прямоугольный');
91..179: writeln('Тупоугольный');
else writeln('некорректный ввод');
end;
end.
Если число в любой системе счисления оканчивается нулем, значит оно кратно основанию системы счисления, т.е. делится на основание системы без остатка. Число, которое одновременно делится на два простых числа 3 и 5 равно произведению этих чисел,т .е. 3х5=15.
Переведем для проверки число 15 в троичную и пятиричную системы.
Ответ: 15(10)=30(5)=120(3)