Вопрос по информатике:
В небоскрёбе n этажей и 1 подъезд,на каждом этаже по 3 квартиры,лифт останавливается только на не чётных этажах .Человек садится в лифт и нажимает номер нужной ему квартиры М.На какой этаж дома довезёт лифт человека.(в паскале)
Пожаловаться
- 10.06.2018 19:55
- Информатика
- remove_red_eye 17054
- thumb_up 13
Ответы и объяснения 2
Я не особо силен в 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.
Пожаловаться
- 11.06.2018 04:51
- thumb_up 5
Varn, flat, floor: Integer;
beginWrite('n = ');ReadLn(n);WriteLn('Какой номер квартиры нужен человеку?');ReadLn(flat);floor := (flat - 1) div 3 + 1;if (floor > n) or (flat <= 0) then beginwriteln('Не верный номер квартиры');exit;end;if (floor mod 2 = 0) or (floor = 1) thenwriteln('Едем на ', floor, ' этаж')elsewriteln('Едем на ', floor - 1, ' этаж');
end.
beginWrite('n = ');ReadLn(n);WriteLn('Какой номер квартиры нужен человеку?');ReadLn(flat);floor := (flat - 1) div 3 + 1;if (floor > n) or (flat <= 0) then beginwriteln('Не верный номер квартиры');exit;end;if (floor mod 2 = 0) or (floor = 1) thenwriteln('Едем на ', floor, ' этаж')elsewriteln('Едем на ', floor - 1, ' этаж');
end.
Пожаловаться
- 12.06.2018 23:09
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы