[10:23:45]:
program chengji;
var s:real;
ch:char;
begin
write('nput the score:');
readln(s);
case trunc(s/10) of
10,9:ch:='A';
8:ch:='B';
6,7:ch:='C';
0..5:ch:='D';
else ch:='E';
end;
writeln(s:4:2,'-->',ch,' (''E'' means input error!)');
end.
[10:35:49]:
program xfor;
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
s:=s+i;
writeln('s=',s);
end.
[9:27:19]:
program cai;
const N=5;
var u:integer;
begin
readln(u);
if u=N then
writeln('Right!')
else
writeln('Wrong!');
end.
[10:02:51]:
program cai;
var N,u:integer;
begin
randomize;
N:=random(10);
readln(u);
if u=N then
writeln('Right!')
else
begin
writeln('Wrong!');
writeln('N is ',N);
end;
end.
TAG:
评分(
