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

Бейсик

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) * (х - Н)
кон