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
Const z = 2.3;var s,d,f,j: real;i:integer;beginj:=0.2;while j < 2.9 dobegins := 1.5*cos(j)*cos(j);writeln(j:4:2 ,s :9:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := 1.8*z*j;writeln(j:4:2 ,s :12:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := (j-2)*(j-2)+6;writeln(j:4:2 ,s :9:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := 3 * sin(j)/cos(j);writeln(j:4:2 ,s :12:6);j:= j +0.2;end; <span>end.</span>
Program znanija;
var x:integer;
begin
readln(x);
if(a>3) then writeln('this number > 3')
else writeln('This number not > 3');
end.
С тебя спасибка!