Номер білета є чотирьохзначним числом(від 1000 до 9999).Надрукуйте всі щасливі білети та знайдіть їх кількість та суму.Щасливим називається білет,у якого сума всіх цифр дорівнює 10. Наприклад: 3241, 5401, 8011..

Это паскаль
люди

В Visual Basic на форме нужно создать текстовое поле Label1
со свойством WordWrap = True, то есть многострочное поле,
размер нужно задать, чтобы поместилась вся матрица.
Sub Matrix
Dim F() As Integer ' Объявляем динамический массив
Dim m As Integer, i As Integer, k As Integer, t As String ' И переменные
m = InputBox ("Vvedite razmer matrix") ' Задаем размер массива
ReDim F(m, m) ' Определяем размер массива
For i = 1 To m    ' Ввод данных
     For k = 1 To m
         t = "Vvedite element Matrix" & Str(i) & "," & Str(k)
         F(i, k) = InputBox (t)
     Next k
Next i
For i = 1 To m
     F(i, i) = 0 ' Обнуляем элементы главной диагонали.
Next i
For i = 1 To m
     For k = 1 To m  ' Вывод строки данных через табуляцию
         Label1.Caption = Label1.Caption & F(i, k) & Chr(9)
     Next k
     Label1.Caption = Label1.Caption & vbCrLf ' Переход на следующую строку
Next i
End Sub

№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.