Visual Basic? Их много, вот, например, на VB.NET
Sub Main()
Dim N As UInteger
Dim Num As Integer
Dim A As String = String.Empty
N = Integer.Parse(Console.ReadLine())
For i As UInteger = 1 To N
Console.Write(i.ToString() + " ")
Num = Integer.Parse(Console.ReadLine())
If Num = 0 Then
A += i.ToString()
End If
Next
Console.WriteLine()
Console.WriteLine()
Console.WriteLine(A.Length)
Console.WriteLine()
For Each i As Char In A
Console.WriteLine(i)
Next
Console.ReadKey()
End Sub
для начала вот правильно написанная программа
Program a2;
var a, b, c, min: real;
begin
writeln ('Введите три числа');
readln (a, b, c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('min=',min);
end.
1) c
2) b
3) a
1. Оператор write будет выполнен 4 раза.
2. Значение S будет равно 12
Трассировочные таблицы - во вложении
Знак 8 бит = 1 байту.
104 зн * 1 байт = 104 байта