Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  case
Language: PASCAL
Code:
program calcul;
var a,optime :integer;
begin;
write('apas 1');
writeln;
write('apas2');
writeln('apas 3');
readln(a);
case a of
1:write('1*0=0 1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9 1*10=10');
2:write('2*0=0 2*1=1 2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=14 *8=16 2*9=18 2*10=20');
3:write('3*0=0 3*1=3 3*2=6 3*3=9 3*4=12 3*5=15 3*6=18 3*7=21 3*8=24 3*9=27 3*10=30');
end;
end.

          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
Comments: