
Thetadar
5 год назад
В небоскрёбе n этажей и 1 подъезд,на каждом этаже по 3 квартиры,лифт останавливается только на не чётных этажах .Человек садится в лифт и нажимает номер нужной ему квартиры М.На какой этаж дома довезёт лифт человека.(в паскале)
ОТВЕТЫ

Stanimir
Oct 24, 2020
Я не особо силен в Pascal, так что вот
program Something;
var N: integer;
begin
writeln('Введите номер квартиры ' );
readln(N);
if N mod 3 = 0 then begin
writeln(N div 3); end
else begin writeln((N div 3)+1 ); end;
end.
program Something;
var N: integer;
begin
writeln('Введите номер квартиры ' );
readln(N);
if N mod 3 = 0 then begin
writeln(N div 3); end
else begin writeln((N div 3)+1 ); end;
end.
162
Смежные вопросы: