Решите все подробноvar k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 45; dat[2] : = 55;  dat[3] : = 40; dat[4] : = 15;  dat[5] : = 20; . dat[6] : = 80;  dat[7] : = 35; dat[8] : = 70;  dat[9] : = 10; dat[10] : = 45;  m: = dat[1];  for k: = 4 to 10 do begin  if dat[k] > = dat[1] then  begin   m: = m + dat[k]  end end;  write(m); end.​

integer1. дано расстояние l в сантиметрах. используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см). program integer_1; var l, k: integer; begin write ('введите значение l: '); readln (l); k : = l div 100; write ('количество полных метров: ', k,'.'); end. integer2. дана масса m в килограммах. используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг). program integer_2; var m, k: integer; begin write ('введите значение m: '); readln (m); k : = m div 1000; write ('количество полных тонн: ', k,'.'); end. integer3°. дан размер файла в байтах. используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта). program integer_3; var a, k: integer; begin write ('введите размер файла: '); readln (a); k : = a div 1024; write ('количество полных килобайтов: ', k,'.'); end. integer4. даны целые положительные числа a и b (a > b). на отрезке длины a размещено максимально возможное количество отрезков длины b (без наложений). используя операцию деления нацело, найти количество отрезков b, размещенных на отрезке a. program integer_4; var a, b, k: integer; begin write ('введите a и b: '); readln (a, b); k : = a div b; write ('количество отрезков b, размещенных на отрезке a: ', k); end. integer5. даны целые положительные числа a и b (a > b). на отрезке длины a размещено максимально возможное количество отрезков длины b (без наложений). используя операцию взятия остатка от деления нацело, найти длину незанятой части отрезка a. program integer_5; var a, b, k: integer; begin write ('введите a и b: '); readln (a, b); k : = a mod b; write ('длина незанятой части отрезка: ', k); end. весьма вероятно, что условия следующих покажутся вам знакомыми, что ничуть не странно, ведь в одном из уроков мы уже приводили решение , подобной данным. integer6. дано двузначное число. вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы). для нахождения десятков использовать операцию деления нацело, для нахождения единиц — операцию взятия остатка от деления. program integer_6; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; writeln (desyatki); edinizi : = chislo mod 10; writeln (edinizi); end. integer7. дано двузначное число. найти сумму и произведение его цифр. program integer_7; var chislo, desyatki, edinizi, summa, proizv: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; edinizi : = chislo mod 10; summa : = desyatki + edinizi; proizv : = desyatki * edinizi; writeln ('сумма цифр числа: ', summa); writeln('произведение цифр числа: ', proizv); end. integer8°. дано двузначное число. вывести число, полученное при перестановке цифр исходного числа. program integer_8; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); desyatki : = chislo div 10; edinizi : = chislo mod 10; chislo : = edinizi * 10 + desyatki; writeln ('полученное число: ', chislo); end. integer9. дано трехзначное число. используя одну операцию деления нацело, вывести первую цифру данного числа (сотни). program integer_9; var chislo, sotni: integer; begin write ('введите число: '); readln (chislo); sotni : = chislo div 100; writeln (sotni); end. integer10. дано трехзначное число. вывести вначале его последнюю цифру (единицы), а затем — его среднюю цифру (десятки). program integer_10; var chislo, desyatki, edinizi: integer; begin write ('введите число: '); readln (chislo); edinizi : = chislo mod 10; writeln (edinizi); desyatki : = chislo mod 100 div 10; writeln (desyatki); end.