1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
3
4
5
6
7
Imports System
 
Public Class Test
        Public Shared Sub Main()
                
        End Sub
End Class

1
2
3
4
5
6
7
8
9
#include<iostream.h>    // use to 
#include<stdlib.h> // used to use exit function,,,,
void main()
{
        int matrix[3][3],k,i,j,z,count=0;
        for(k=0;k<5;k++)                //will execute the inner loop 5 times, which is already executing 2 times i.e inner loop is executed 10 times
        {
                for(z=1;z<=2;z++)
                {       count++;
 ...

1
2
3
4
5
6
7
8
9
#include<iostream.h>    // use to 
#include<stdlib.h> // used to use exit function,,,,
int main()
{
        int matrix[3][3],k,i,j,z,count=0;
        for(k=0;k<5;k++)                //will execute the inner loop 5 times, which is already executing 2 times i.e inner loop is executed 10 times
        {
                for(z=1;z<=2;z++)
                {       count++;
 ...

1
2
3
4
5
6
7
8
9
#include<iostream.h>    // use to 
#include<stdlib.h> // used to use exit function,,,,
int main()
{
        int matrix[3][3],k,i,j,z,count=0;
        for(k=0;k<5;k++)                //will execute the inner loop 5 times, which is already executing 2 times i.e inner loop is executed 10 times
        {
                for(z=1;z<=2;z++)
                {       count++;
 ...

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
3
4
5
6
7
8
9
global new_command
        global msg_id
        global actcode
        global preCommand
        global command
        set command "SET:HLRSUB:MSISDN,888888:CFNRC,1,89:MSG_ID,4567;"
        set ind [string last ":" $command]
        set ind1 [string last "," $command]
        set len [string length $command]
 ...

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
3
4
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363
E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print
"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80)
.";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;

1
2
3
4
5
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363
E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print
"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80)
.";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;
 

1
 

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
set result [add $num1 $num2]
puts "after addition Result is $result"
proc add {num1 num2}{
set result [expr $num1+$num2]
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
set result [add $num1 $num2]
puts "after addition Result is $result"
proc add {num1 num2}{
set result [expr $num1+num2]
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
puts [add num1 num2]
proc add {num1 num2}{
set result [expr $num1+num2]
puts "Result is $result"
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
#puts [add num1 num2]
proc add {num1 num2}{
set result [expr {$num1+num2}]
puts "Result is $result"
 ...

1
2
3
4
5
6
7
8
9
puts "enter first no \n"
set num1 [gets stdin]
puts "enter Second no \n"
set num2 [gets stdin]
puts "after addition the result is" [add num1 num2]
 
add {num1 num2} {
        set result [expr $num1 + $num2]
        return $result

1
2
3
4
5
6
7
8
9
puts "enter first no \n"
set num1 [gets stdin]
puts "enter Second no \n"
set num2 [gets stdin]
puts "after addition the result is" [add $num1 $num2]
 
add {num1 num2} {
        set result [expr $num1 + $num2]
        return $result

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
set liczba [gets stdin]
while { $liczba != 42 } { puts $liczba; set liczba [gets stdin] }

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
#puts "Result is "[add num1 num2]
proc add {num1 num2}{
set result [expr {$num1+num2}]
puts "Result is $result"
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
#puts "Result is "[add num1 num2]
proc add {num1 num2}{
set result [expr {$num1 + num2}]
puts "Result is $result"
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
puts "Result is "[add num1 num2]
proc add {num1 num2}{
set result [expr {$num1 + num2}]
return $result
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
puts "Result is [add num1 num2]"
proc add {num1 num2}{
set result [expr {$num1 + num2}]
return $result
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
proc add {num1 num2}{
set result [expr $num1 + num2]
return $result
}
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
add num1 num2
proc add {num1 num2}{
set result [expr $num1 + num2]
return $result
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
proc add {num1 num2}{
set result [expr $num1 + num2]
return $result
}
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
 ...

1
2
3
4
5
6
7
8
9
#PROCEDURE to add two nos
puts "enter first no"
set num1 [gets stdin]
puts "enter second no"
set num2 [gets stdin]
add num1 num2
#puts "Result is $result"
proc add {num1 num2}{
set result [expr $num1 + num2]
 ...