Как в паскале написать что можно вводить только целое число от 1 до 360. Пример: Program gtgt; const e=9; k=4; var n,pn,c,en:integer; begin Write('Укажите номер квартиры: '); Read(n); c:=e*k; pn:=(n-1) div c + 1; en:...
Как в паскале написать что можно вводить только целое число от 1 до 360.
Пример:
Program gtgt;
const
e=9;
k=4;
var
n,pn,c,en:integer;
begin
Write('Укажите номер квартиры: '); Read(n);
c:=e*k;
pn:=(n-1) div c + 1;
en:=(n-(pn-1)*c-1) div 4 + 1;
writeln('Подъезд ',pn,', этаж ',en)
end.
n - номер квартиры. Как написать что можно ввести только от 1 до 360
Гость
Ответ(ы) на вопрос:
ГостьТак
For n:=1 to 360 do
Не нашли ответ?
Похожие вопросы