2道 pascal 2、读入5个同学的三科成绩,输出5位同学中每位同学的平均分.(输入文件格式:5行,每一行3个数,分别表示三科成绩,3个数之间用1 个空格分开;输出文件格式:1行5个数,表示5个同学
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/30 17:29:20
2道 pascal 2、读入5个同学的三科成绩,输出5位同学中每位同学的平均分.(输入文件格式:5行,每一行3个数,分别表示三科成绩,3个数之间用1 个空格分开;输出文件格式:1行5个数,表示5个同学
2道 pascal
2、读入5个同学的三科成绩,输出5位同学中每位同学的平均分.
(输入文件格式:5行,每一行3个数,分别表示三科成绩,3个数之间用1 个空格分开;输出文件格式:1行5个数,表示5个同学的平均分,用1个空格隔开)
3、打印 1 — 100间的所有素数:
2道 pascal 2、读入5个同学的三科成绩,输出5位同学中每位同学的平均分.(输入文件格式:5行,每一行3个数,分别表示三科成绩,3个数之间用1 个空格分开;输出文件格式:1行5个数,表示5个同学
2
var i,j:integer;
a:array[1..5,1..4]of integer;
begin
for i:=1 to 5 do
for j:=1 to 3 do
begin
read(a[i,j]);
a[i,4]:=a[i,4]+a[i,j];
end;
for i:=1 to 5 do
write(a[i,4]/3,' ');
end.
3
var i,j:integer;
f:boolean;
begin
for i:=2 to 100 do
begin
f:=true;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then begin f:=false; break; end;
if f then writeln(i);
end;
end.