Proszę pomożcie! ; ) Napisz program(we FREE PASCALU), który policzy sumę i średnią liczb z zakresu od 700 do 7000.
proszę aby te dwa zadania tzn suma i srednia były napisane w osobnych programach ;)
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Program suma1;
uses Crt;
var
suma,i :Integer;
begin
suma:=0;
for i:=700 to 7000 do
suma:=suma+i;
writeln('Suma liczb z zakresu od 700 do 7000 wynosi ',suma);
readln;
End.
Program srednia2;
uses Crt;
var
i,suma :Integer;
begin
suma:=0;
for i:=700 to 7000 do
suma:=suma+i;
writeln('Srednia liczb z zakresu od 700 do 7000 wynosi ',suma/6301:8:2);
readln;
End.