Програма 7. Додайте до програми необхідну команду, та визначте, якими будуть вихідні дані.
a=int (input()
5.
a=a+12
else
Вхідні дані:​

Для удобства вычислений считаем, что ширина диапазона дискретизации составляет 100 В (т.е. напряжение может быть равно 0, 1, 2, .. 99 В).
При этом получаются 5 интервалов
  0 - 19 В
20 - 39 В
40 - 59 В
60 - 79 В
80 - 99 В
Значение 54 В попадает в третий интервал и напряжение после дискретизации считается равным 40В (нижняя граница диапазона).

Если очень важно, чтобы и 100В попадало в диапазон дискретизации, то его ширина будут равна 101 В, что потребует ввести поправку 0.2В в границы интервалов. ответ на задачу при этом изменится и будет нецелым.

ответ: 40 В

Разветвляющийся алгоритм

Var a,b,c,d,e:integer;

Begin

Writeln('Введите значения переменных');

Readln(a,b,c,d,e);

If (a>b) and (a>c) and (a>d) and (a>e) tnen

Writeln('Наибольшее из 5 чисел ', a)

Else

If (b>a) and (b>c) and (b>d) and (b>e) tnen

Writeln('Наибольшее из 5 чисел ', b)

Else

If (c>a) and (c>b) and (c>d) and (c>e) tnen

Writeln('Наибольшее из 5 чисел ', c)

Else

If (d>a) and (d>b) and (d>c) and (d>e) tnen

Writeln('Наибольшее из 5 чисел ', d)

Else

Writeln('Наибольшее из 5 чисел ', e);

End.

Циклический алгоритм

Type

Vector=array [1..10] of integer;

Var m:integer;

a:vector;

i:byte;

Begin

Writeln('Введите значения переменных');

For i:=1 to 5 do

      Readln (a[i]);

For i:=1 to 5 do

If  a[i]>a[i+1] then

m:=a[i];

Writeln('Наибольшее число ', m);

End.