Инфотрматика сор2 ,1 четверть 7 класс​

Объяснение:

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

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

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

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

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

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

Не уверен, что в 9 классе проходят массивы, уточни потом, переделаю, если что.

Program G;
Uses Crt;
Var NumS: Array [1..10] of byte;
    n: integer; count, i, k, equal, truth: byte;
Begin
 ClrScr;
 Truth:=0;
 Writeln('Введите число N (меньше или равное 9999).');
 Repeat
  Readln(N);
  If N>9999 then Writeln('Введено неверное число. Повторите ввод.');
 Until N<=9999; Count:=0;
 While N>0 do
  Begin
   Inc(Count);
   NumS[Count]:=N mod 10;
   N:=N div 10;
  End;
 For i:=1 to Count do
  Begin
   Equal:=0;
    For k:=i+1 to Count do
    If NumS[i]=NumS[k] then
     Inc(Equal);
   If Equal=2 then Truth:=1;
  End;
 If Truth=1 then Writeln('В числе совпадает три разряда.')
   Else Writeln('В числе совпадает менее/более трёх разрядов.');
 Readln;
End.