Определить номер подъезда и этажа квартиры девятиэтажного дома по указанному ее номеру

@ЖУК · Регистрация: 10.09.2014

Author24 — интернет-сервис помощи студентам

Определить номер подъезда и этажа квартиры девятиэтажного дома по указанному ее номеру N. Считать, что на каждом этаже находится M квартир.
Входные данные:
В первой строке записано два целых числа: Номер квартиры N (N < 32767) и число квартир на этаже M (M < 32767)

Выходные данные:
В выходной поток вывести два целых числа через пробел: номер подъезда и номер этажа заданной квартиры.

Пример входного файла (input.txt):
463 5
Пример выходного файла (output.txt):
11 3
Где ошибка

Pascal

var n,m,np,ne:integer;
begin
readln(m);
readln(n);
np:=(n-1) div (9*m)+1;
ne:=((n-(np-1)*m*9)-1) div (m+1);
write('np' 'ne');
end.

@Iriini · 10.09.2014, 21:31

write('np' 'ne');

Запятой нет, а апострофы лишние.

Pascal

1	write(np, ne);

@ЖУК · 10.09.2014, 21:33 **[ТС]**

вот что пишет Syntax error, ":" expected but "(" found

@Iriini · 10.09.2014, 21:39

ЖУК, новый код покажите...

@ЖУК · 10.09.2014, 21:40 **[ТС]**

Pascal

var m,n,t,tmp,ne,np:integer;
readln(m);
readln(n);
n:=n-1;
t:=m*9;
np:=n div t;
tmp:=n mod t;
ne:=tmp div m;
ne:=ne+1;
np:=np+1;
write(np, ne);
end.

@Iriini · 10.09.2014, 21:47

А где begin после описания переменных?

@ЖУК · 10.09.2014, 21:51 **[ТС]**

пишит Нарушение формата вывода

@Iriini · 10.09.2014, 21:54

Ваша идея решения...

Pascal

var m,n,t,tmp,ne,np:integer;
begin
readln(m);
readln(n);
n:=n-1;
t:=m*9;
np:=n div t;
tmp:=n mod t;
ne:=tmp div m;
ne:=ne+1;
np:=np+1;
write(np, ne);
end.

@ЖУК · 10.09.2014, 21:55 **[ТС]**

все ровно

@AlexKolc · 10.09.2014, 22:11

ЖУК, а так?

Pascal

var m,n,t,tmp,ne,np:integer;
begin
readln(m);
readln(n);
n:=n-1;
t:=m*9;
np:=n div t;
tmp:=n mod t;
ne:=tmp div m;
ne:=ne+1;
np:=np+1;
write(np, ' ', ne);
end.

@Iriini · 10.09.2014, 22:11

Замените для тестирующей системы

readln(m);
readln(n);

на readln(n,m);

@ЖУК · 10.09.2014, 22:13 **[ТС]**

нет все ровно ишит что ошибка в выводе

@AlexKolc · 10.09.2014, 22:15

вместо

Сообщение от AlexKolc

write(np, ' ', ne);

попробуйте

Pascal

1	writeln(np, ' ', ne);

@ЖУК · 10.09.2014, 22:18 **[ТС]**

Pascal

var m,n,t,tmp,ne,np:integer;
begin
read(m,n);
n:=n-1;
t:=m*9;
np:=n div t;
tmp:=n mod t;
ne:=tmp div m;
ne:=ne+1;
np:=np+1;
write(np, ' ', ne);
end.

теперь просто минус

@Iriini · 10.09.2014, 22:26

Поменяйте read(m,n); на read(n,m);

@ЖУК · 10.09.2014, 22:28 **[ТС]**

урра получилось

@ЖУК 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 49
	10.09.2014, 22:13 [ТС]	12
	нет все ровно ишит что ошибка в выводе 0

@ЖУК 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 49
	10.09.2014, 22:28 [ТС]	16
	урра получилось 0

@ЖУК 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 49
	10.09.2014, 21:33 [ТС]	3
	вот что пишет Syntax error, ":" expected but "(" found 0

@Iriini 266 / 192 / 50 Регистрация: 16.06.2014 Сообщений: 424
	10.09.2014, 21:39	4
	ЖУК, новый код покажите... 0

@Iriini 266 / 192 / 50 Регистрация: 16.06.2014 Сообщений: 424
	10.09.2014, 21:47	6
	А где begin после описания переменных? 1

@ЖУК 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 49
	10.09.2014, 21:51 [ТС]	7
	пишит Нарушение формата вывода 0

@ЖУК 0 / 0 / 0 Регистрация: 10.09.2014 Сообщений: 49
	10.09.2014, 21:55 [ТС]	9
	все ровно 0

@Iriini 266 / 192 / 50 Регистрация: 16.06.2014 Сообщений: 424
	10.09.2014, 22:11	11
	Замените для тестирующей системы readln(m); readln(n); на readln(n,m); 1

@Iriini 266 / 192 / 50 Регистрация: 16.06.2014 Сообщений: 424
	10.09.2014, 22:26	15
	Поменяйте read(m,n); на read(n,m); 1