var i,j,s:integer; begin // задание 1 s:=0; for i:=1 to 10 do s:=s+i*i; Writeln(s); // задание 2 j:=0; for i:=1 to 50 do if i mod 2=0 then j:=j+1; Writeln(j) end.
Результат 385 25
А вот так можно это решить по-нормальному за минуту.
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016 // Внимание! Если программа не работает, обновите версию! begin Writeln(1.To(10).Select(i->i*i).Sum); // задание 1 Writeln(Range(2,50,2).Count) // задание 2 end.
Program Bally; var a:array[1..250] of string; N,l,max,x,i,b,p:integer; z,k:string; begin max:=0; readln(N); for i:=1 to N do readln(a[i]); z:=a[1]; l:=Pos(' ',z); Delete(z,1,l); l:=Pos(' ',z); Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); max:=max+x; for i:=2 to N do begin z:=a[i]; b:=0; l:=Pos(' ',z); Delete(z,1,l); l:=Pos(' ',z); Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); b:=b+x; if b>max then max:=b; end; for i:=1 to N do begin z:=a[i]; b:=0; l:=Pos(' ',z); p:=l; Delete(z,1,l); l:=Pos(' ',z); p:=p+l; Delete(z,1,l); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x; Delete(z,1,Pos(' ',z)); Val(z,x,l); b:=b+x; if b=max then begin z:=a[i]; delete(z,p,length(z)-p+1); writeln(z); end; end; end. Наверное так!!
Программа на Pascal:
const
N=5;
var
i,S:integer;
sr:real;
a:array[1..N] of integer;
begin
S:=0;
for i:= 1 to N do
begin
writeln('Введите оценки');
readln(a[i]);
end;
for i:=1 to N do
begin
S:=S+a[i];
end;
sr:=S/N;
writeln('Среднее арифметическое =',sr);
end.