2道 pascal 2、读入5个同学的三科成绩,输出5位同学中每位同学的平均分.(输入文件格式:5行,每一行3个数,分别表示三科成绩,3个数之间用1 个空格分开;输出文件格式:1行5个数,表示5个同学
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/25 18:04:52
![2道 pascal 2、读入5个同学的三科成绩,输出5位同学中每位同学的平均分.(输入文件格式:5行,每一行3个数,分别表示三科成绩,3个数之间用1 个空格分开;输出文件格式:1行5个数,表示5个同学](/uploads/image/z/5123886-6-6.jpg?t=2%E9%81%93+pascal+2%E3%80%81%E8%AF%BB%E5%85%A55%E4%B8%AA%E5%90%8C%E5%AD%A6%E7%9A%84%E4%B8%89%E7%A7%91%E6%88%90%E7%BB%A9%2C%E8%BE%93%E5%87%BA5%E4%BD%8D%E5%90%8C%E5%AD%A6%E4%B8%AD%E6%AF%8F%E4%BD%8D%E5%90%8C%E5%AD%A6%E7%9A%84%E5%B9%B3%E5%9D%87%E5%88%86.%EF%BC%88%E8%BE%93%E5%85%A5%E6%96%87%E4%BB%B6%E6%A0%BC%E5%BC%8F%EF%BC%9A5%E8%A1%8C%2C%E6%AF%8F%E4%B8%80%E8%A1%8C3%E4%B8%AA%E6%95%B0%2C%E5%88%86%E5%88%AB%E8%A1%A8%E7%A4%BA%E4%B8%89%E7%A7%91%E6%88%90%E7%BB%A9%2C3%E4%B8%AA%E6%95%B0%E4%B9%8B%E9%97%B4%E7%94%A81+%E4%B8%AA%E7%A9%BA%E6%A0%BC%E5%88%86%E5%BC%80%EF%BC%9B%E8%BE%93%E5%87%BA%E6%96%87%E4%BB%B6%E6%A0%BC%E5%BC%8F%EF%BC%9A1%E8%A1%8C5%E4%B8%AA%E6%95%B0%2C%E8%A1%A8%E7%A4%BA5%E4%B8%AA%E5%90%8C%E5%AD%A6)
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.