Насколько я помню,операторы div и mod - операторы деления.mod - возвращает остаток от деления,а div - наоборот,целую часть.Алгоритм прост в данном случае:
Пусть число abcd - заданное пользователем число.Тогда первая цифра будет равна : a = abcd div 1000 //a - число тысяч
Вторая : b = (abcd - (a*1000)) div 100 //b - число сотен
Третья : c = (abcd - (a*1000 + b*100)) div 10 // c - число десятков
Четвертая : d = abcd mod 10 // d - остаток от деления,в данном случае число единиц.
Остается только вывести a,b,c и d через пробел на экран.
У тебя программа уже написана, не работать может только из за vara, поставь пробел "var a" ну и у readln и writeln напиши L маленькими
14-м 1-а 26-ш 1-а.
Для этого она заменила каждую букву в своём имени на её номер в алфавите
Поля «год издания» и «рейтинг» необходимо превратить в
числа. Простейший способ для этого: вставить в пустую ячейку 1/ копировать ее/
выделить столбей цифр/специальная вставка/умножить.
<span>Если строк много, то лучше сверху оставить несколько штук и
снизу, остальные скрыть. Когда необходимо можно отобразить. Сами формулы видны
в строке формул.</span>
Program P1;
var z,x,y,p,e:integer;
begin
write('Количество этажей = '); readln(x);
write('Количество квартир на лестничной площадке = ');
readln(y);
write('Номер квартиры = '); readln(z);
p:=(z-1) div (x*y)+1;
e:=((z-(p-1)*x*y)-1) div y +1;
writeln('Квартира ',z,' находится в ',p,' подъезде на ',e,' этаже');
end.
Пример:
Количество этажей = 9
Количество квартир на лестничной площадке = 4
Номер квартиры = 67
Квартира 67 находится в 2 подъезде на 8 этаже
