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

Бейсик

DIM А, В, Т, М, R, Н AS INTEGER
INPUT Н
А = 10: В = 80
М = A: R = F (Н, А)
FOR Т = А ТО В
	IF F(H, Т) < R THEN
		М = Т
		R = F(H, Т)
	END IF
NEXT T
PRINT М

FUNCTION F(Н, х)
	F = (х - 30) * (х - H) 
END FUNCTION

Паскаль

var a, b, t, M, R, H: integer;
function F(H, x: integer): integer;
begin
	F := (x - 30) * (x - H) ;
end;
begin
	readln(H);
	a := 10; b := 80;
	M := a; R := F(H, a);
	for t := a to b do begin
		if (F(H, t) < R) then begin 
			M := t;
			R := F(H, t) 
		end 
	end;
	write(M) 
end.

Си

#include<stdio.h> 
int F(int H, int x)
{
	return (x - 30) * (x - H);
}
void main()
{
	int a, b, t, M, R, H; 
	scant("%d", &H); 
	a = 10; b = 80;
	M = a; R = F (H, a); 
	for (t = a; t <= b; t++){ 
		if (F(H, t) < R) {
			M = t; R = F (H, t);
		}
	}
	printf("%d", M);
}

Алгоритмический язык

нач
	цел а, b, t, R, М, Н 
	ввод Н
	а := 10; b := 80 
	М := a; R := F (Н, а) 
	нц для t от а до b 
		если F(H, t) < R 
		то
			М := t; R := F(H, t) 
		все 
	кц
вывод М 
кон
алг цел F(цел Н, х) 
нач
	знач := (х - 30) * (х - Н)
кон