while это?

цикл-ПОВТОРЕНИЕ
цикл-ПОКА
цикл-ЗАВЕРШЕНИЕ

<условие> это?

логическое выражение; пока оно истинно, выполняется тело цикла
логическое выражение; пока оно истинно, выполняется действие цикла
простой или составной выражение, с которого записано тело цикла

В языке Паскаль использование циклов целесообразно:

1) при многократном выполнении одинаковых действий
2) для проверки условия
3) для выполнения арифметических действий с ­щью арифметических операторов
4) для вывода на печать вычисленного значения выражения

1
2
3
4

Объяснение:

✓ this.InitializeComponet - это инициализация компонентов формы (под названием MainPage).

✓ Button_Click - это событие, вызываемое после нажатия кнопки.

✓ Double.Parse(probeg/litres) - преобразование строки в тип double.

✓ rashod.Text = присваиваем значение компоненту формы TextBox (под названием rashod).

✓ dRes.ToString("##.##") выводим текстовое значение (потому что тип double преобразуется в string) в указанном формате - ##.##

✓ double dprobeg = ... и double dlitres = ... присвоено значение в указанный компонент TextBox.

№1

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.

№2

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.

№3

var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.