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

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.

привет, надеюсь я тебе

Объяснение:

Беспрецедентный характер нынешней мировой истории заключается в том, что до сих пор человечество было господином творения на земле в том смысле, что ни силы природы, ни кто-либо из людей не мог уничтожить или даже прервать человеческий прогресс. Человечество издавна знало кризисы, вызывавшимися стихийными силами природы, как-то: землетрясения и наводнения, засухи, эпидемии и т.д. Однако кризисы эти порождались внешними для человека причинами, и сам он был лишь их жертвой. Кризисы, с которыми пришлось столкнутьс современному человечеству являются уже результатом деятельности самого человека, являютс уже результатом деятельности самого человека, носят антропогенный характер.

С изобретением ядерного оружия приобрела особое глобальное значение проблема войны и мира. В мире прогрессировало не только добро, но и зло. Зло концентрировалось в большей степени именно в войнах, которые разрушали все, что, создавалось людьми, и уничтожая самих людей. Первым средством в борьбе против войн должен быть отказ от войны как средства продолжени политики. Ныне стал очевидным ее иррациональный смысл, а точнее полная абсурдность как какого бы то ни было средства решения международных проблем.

Помимо глобальной атомной угрозы существуют и иные глобальные проблемы, порожденные кризисным состоянием взаимоотношения природы и общества в результате научно-технического развития. Среди них наиболее значимым является экологический кризис, выражающийся в повседневном загрязнении окружающей среды, одновременно с прогрессирующим истощением запасов планеты - ее земных и водных ресурсов. Для решения экологической проблемы необходимо правильно рационально и экономно использовать природные ресурсы. Один из рациональных организации природопользования - изменение производственной технологии, в чем воплощается непосредственно материальное взаимоотношение человека и природы. Но дл его осуществления требуется и изменение ценностных ориентаций человека - формирование его экологического мышления, новой экологической этики.

Еще одной не менее тревожной глобальной проблемой является проблема физического и нравственного здоровья человека. Информационные перегрузки, общий, все ускоряющийс ритм жизни особенно в гигантских, крупных городах, злоупотребление лекарственными препаратами, химические свойства которых по своим неблагоприятным для организма последствиям оказываются зачастую неизвестными - все это пагубно действует на человека. Это лишь маленькая толика из общего количества неблагоприятных для человека факторов.

Поправьте пути на верные самостоятельно. скрины во вложениях, файлы тоже

static void Main(string[] args)

       {

           //Вытаскиваем фамилии в массив lastnames

           string file1 = "C:\\Desktop\\lastname.txt";

           StreamReader rd1 = new StreamReader(new FileStream(file1, FileMode.Open), System.Text.Encoding.Default);

           string lastname = "";

           lastname = rd1.ReadToEnd().Replace("\n", "").Replace("\r", " ");//Считываем строку из файла, удаляя из нее символы переноса строки.

           String[] lastnames = lastname.Split(new char[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);

           

           //Вытаскиваем номера в массив  

           string file2 = "C:\\Desktop\\num.txt";

           StreamReader rd2 = new StreamReader(new FileStream(file2, FileMode.Open), System.Text.Encoding.Default);

           string number = "";

           number = rd2.ReadToEnd().Replace("\n", "").Replace("\r", " ");//Считываем строку из файла, удаляя из нее символы переноса строки.

           String[] numbers = number.Split(new char[] { ' ' }, StringSplitOptions.RemoveEmptyEntries);

           Console.WriteLine("Введите искомый номер телефона:");

           string numserch = Console.ReadLine();

           

           //поиск элемента в массиве номеров

           for (int i = 0; i < numbers.Length; i++)

           {

               if (numbers[i] == numserch)

               {

                   Console.WriteLine("Владелец данного номера: " + lastnames[i]);

               }

           }

           

           Console.ReadLine();

       }