主题:TJU1018
编制一个乘法运算的程序
Time Limit:1s Memory Limit:640k
Total Submit:4129 Accepted:1367
下载样例程序(PE)
下载样例程序(ELF)
--------------------------------------------------------------------------------
Problem
从键盘读入两个100以内的正整数,进行乘法计算并输出
Input
该题有多组测试数据,每组数据为一行,包含两个乘数,用空格分开。
Output
输出格式请看样例.注每一行末尾没有任何空格,比如样例数据中的89后面没有空格。
Sample Input
89 13
Sample Output
1234567(这个仅作格式参照,不属于输出部分)
89
* 13
-------
267
89
-------
1157
Source
noip96普及组
Program TJU1018;
Var
a, b, c, d, e: Longint;
Begin
e := 0;
Repeat
Read(a,b);
Writeln(a:7);
Writeln('*':1,b:6);
Writeln('-------');
c := a*(b Mod 10);
d := a*(b Div 10);
Writeln(c:7);
Writeln(d:6);
Writeln('-------');
Writeln(a*b:7);
Until e<0;
End.
怎么又没过去?~~
Time Limit:1s Memory Limit:640k
Total Submit:4129 Accepted:1367
下载样例程序(PE)
下载样例程序(ELF)
--------------------------------------------------------------------------------
Problem
从键盘读入两个100以内的正整数,进行乘法计算并输出
Input
该题有多组测试数据,每组数据为一行,包含两个乘数,用空格分开。
Output
输出格式请看样例.注每一行末尾没有任何空格,比如样例数据中的89后面没有空格。
Sample Input
89 13
Sample Output
1234567(这个仅作格式参照,不属于输出部分)
89
* 13
-------
267
89
-------
1157
Source
noip96普及组
Program TJU1018;
Var
a, b, c, d, e: Longint;
Begin
e := 0;
Repeat
Read(a,b);
Writeln(a:7);
Writeln('*':1,b:6);
Writeln('-------');
c := a*(b Mod 10);
d := a*(b Div 10);
Writeln(c:7);
Writeln(d:6);
Writeln('-------');
Writeln(a*b:7);
Until e<0;
End.
怎么又没过去?~~