Question

Помогите пожалуйста Напишите программы для решения задач. Используйте операции div и mod. 1) задано двухзначное число. Найдите разность между количеством десятков и единиц. 2) площадь участка измеряется в арах. Найдите количество полных км².

Answer 1

1) 
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
Writeln(n div 10 - n mod 10)
end.
2) 
var
a:real;
begin
writeln('Площадь в ар.: '); 
Read(a);
Writeln('Кв,км: ',Trunc(a/10000))
end.