SOS 关于Pascal的题目

SOS 关于Pascal的题目

1.这一题，实不知你要哪种的，所以给你个最简单的；Program answer；Var a,b,c:real; d:char;Begin read(a,d,c); if d='+' then writeln(a+b:0); if d='-' then writeln(a-b:0); if d='*' then writeln(a*b:0); if d='/' then writeln(a/b:0);End. //非完美，现写的，有不妥之处请指出； 2.……太复杂了吧Program answer IF ；Var a:longint;Begin readln(a); if a<50 then begin writeln(a); halt end; //输出之后直接用halt退出程序，如进入下一步则表示>50元 if a<100 then begin writeln(a*0.9); halt end; writeln(90+(a-100)*0.8);End.Program answer CASE ；Var a:longint;Begin readln(a); if a<50 then b:=1; if (a<100)and(a>=50) then b:=2; if a>150 then b:=3; case b of 1 : writeln(a); 2 : writeln(a*0.9); 3 : writeln(90+(a-100)*0.8) end;End. 3.Program answer ；Var a,i,sum:longint;Begin sum:=0; for i:=1 to 10 do begin readln(a); sum:=sum+a; end; writeln(sum,sum/10);End.

这题其实很简单的，你可以把每一行分成3个部分找出每行i与它的个数的规律，先输出字母，然后空格，再字母