Что помочь?напиши задание и тогда помогу
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 переменные целого типа, подразумевается, что происходит автоматическое округление при делении в меньшую сторону
1). Здесь возможны 2 варианта:
if A>10 then a:=a+2 else
if A>10 then else a:=a+2
2)
<span>__ a:= 23 div 10 +10 - </span>3) 12<span>
__ b:= a mod 5 +1 - </span>4) 3<span>
__ c:= sqr(b) - </span>1) 9<span>
__ d:= c *5/3 - </span>2) 15
В оперативную ))))))))))))))
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
WriteAllText(ReadlnString('Куда?'),ReadLines(ReadlnString('Откуда?'))
.SelectMany(x->x)
.Where(c->Pos(LowCase(c),'бвгджзйклмнпрстфхцчшщ')>0)
.JoinIntoString)
end.