Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Написать программу в pascal, чтобы выдал подъезд и этаж

Ответ оставил Гость

Pascal.
var
  n: integer;
  k: integer;
  p: integer;
  m: integer;
  x: integer;
  y: integer;
  z: integer;
begin
  write(Сколько подъездов в доме? );
  readln(m);
  write(Сколько этажей в доме? );
  readln(n);
  write(Сколько квартир на 1-ом этаже? );
  readln(p);
  write(Сколько квартир на остальных этажах? );
  readln(k);
  writeln(Общее количество квартир в доме: ,(k*(n-1)+p)*m);
  repeat
    write(Номер квартиры: );
   readln(x);
    if x>(k*(n-1)+p)*m then writeln(Выбранной Вами квартиры не существует. Введите настоящий номер.);
  until x in[1..(k*(n-1)+p)*m];
   if x>k*(n-1)+p then
  begin
    z:=x div 16+1;
    x:=x mod 16;
     if x>p then y:=x div k +1else y:=1;
   end else
  begin
    z:=1;
     if x>p then y:=x div k +1
       else y:=1;
   end;
   writeln(Искомая квартира находится в ,z,-м подъезде на ,y, этаже.);
   readln;
end.