S - это счетчик
потом читаем n
x присваиваем значение 5
(цикл) цикл будет работать от x (тоесть от 5) и до тех пор пока n не будет равно x увиличаем число на определённое значение s(тоесть 0,(то число которое ты ввел)находим целую часть этих чисел при делении на x )
x присваиваем значение x * 5
выводим в s
И программа вообще не работает (что тебе нужно найти?)
Кто ж вас так фоткать учил
Высоту можно определить по известной формуле (если проблемы с этим - см. Интернет или задайте вопрос в Геометрии, чтобы формулу вывели):
, где a,b - катеты
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Write('Введите катеты через пробел: '); Read(a,b);
Writeln('h=',a*b/sqrt(a*a+b*b))
end.
4 двоичных разряда - 16 значений. Либо от 0 до 15, либо от -7 до +7.