Срочно. Пожалуйста посчитайте пожалуйста по информатике 1. Как узнать сколько чисел от 1 до 100 удовлетворяю условию:(x div 10 = 0) or ((x mod 10 = 0) and (x >80 ))?2. Определите значение переменной c после выполнения следующего фрагмента программы. a := 15; b := 23;b := - a / 4* b; if a < b then c := b - a else c := a - 4 * b; 3. Написать программу для определения площади Прямоугольного треугольника и его периметра .Через тип данных longint, максимум 6 строкДаю 20 поинтов