Статистики за въведени числа до 0

Публикувано на 18 април, понеделник от Данаил

Да се позволи въвеждане на числа до въвеждане на 0 и да се отпечата:

  • сумата и произведението им
  • броят им и средното аритметично
  • най-малкото и най-голямото от тях
Публикувано в 9а с етикети . Постоянна връзка.

5 коментара по Статистики за въведени числа до 0

  1. svetlieti каза:
    18 април, понеделник в 16:31 
    program Project1;
var
  chislo, proizvedenie, suma, br, max, min:integer;
  sredno:real;

begin
  Writeln('Vavedi chisla: ');
  suma:=0;
  proizvedenie:=1;
  br:=0;
  min:= 0;
  max:= 0;
  repeat
    Readln(chislo);
    suma:=suma+chislo;
    proizvedenie:=proizvedenie*chislo;
    br:=br+1;
    if chislo > max then
      max:=chislo;
    if chislo < min then
      min:=chislo;
  until chislo=0 ;
  sredno:= suma/br;

  Writeln;
  Writeln('Sumata e: ',suma);
  Writeln('Proizvedenieto e: ', proizvedenie);
  Writeln('Broqt na chislata e: ',br);
  Writeln('Sredno aritmetichno na chislata e: ',sredno:5:2);
  Writeln('Nai-golqmoto chislo e: ', max);
  Writeln('Nai-malkoto chislo e: ', min);

  Readln;
end.
  2. Alya каза:
    18 април, понеделник в 16:35 
    program Project1;
var
  chislo, sum, proiz: integer;

begin
  sum:=0;
  proiz:=1;
  repeat
    WriteLn('Vavedete chislo: ');
    ReadLn(chislo);
    sum:= sum+chislo;
    if chislo<>0 then
    proiz:= proiz*chislo;
  until chislo=0;
  WriteLn(sum);
  WriteLn(proiz);
  readln;

end.
  3. Боряна каза:
    18 април, понеделник в 16:39 
    program Project1;
var
  chislo, suma, proizv, br, min, max: integer;
begin
  suma:=0;
  proizv:=1;
  br:=0;
  min:=0;
  max:=0;
  WriteLn('Vavejdaite chisla:');
  repeat
    ReadLn(chislo);
    suma:=suma+chislo;
    if chislo<>0 then begin
    proizv:=proizv*chislo;
    end;
    br:=br+1;
    if chislo>max then
        max:=chislo;
    if chislo<min then
        min:=chislo;
  until chislo=0;
  WriteLn('Vie vavedohte 0 - tova e kraiat na poredicata chisla.');
  WriteLn;
  WriteLn('Statistikata e slednata:');
  WriteLn('Suma na chislata: ', suma);
  WriteLn('Proizvedenie na chislata: ', proizv);
  WriteLn('Broiat na chislata: ', br);
  WriteLn('Srednoto aritmetichno na chislata: ', suma/br);
  WriteLn('Nai-malkoto chislo: ', min);
  WriteLn('Nai-goliamoto chislo: ', max);
  WriteLn;
  WriteLn('Priaten den! Beshe udovolstvie da se raboti s Vas! No...');
  WriteLn('Ne se vrashtaite pak. NIKOGA.');
  ReadLn;
end.
  4. zornitsa_mirela каза:
    25 април, понеделник в 16:21 
     program Project1;
var                                  // деклариране на променливи
  chislo,suma,pn,k5,min,max:integer; // chislo,suma,pn,k5,min,max са цели числа
begin
  suma:=0; // за suma присвояваме 0
  pn:=0; //за pn присвояваме 0
  k5:=0; // за k5 присвояваме 0
  min:=0; // за min присвояваме 0
  max:=0; // за max присвояваме 0
  WriteLn('Vavedete chisla:'); // на екрана се изписва 'Vavedete chisla:' и ни дава възможност да въведем числа
  repeat // повтаря :
      ReadLn(chislo);  // прочита, кое е числото
      if chislo>0 then  // ако число>0 тогава
    suma:=suma+chislo;   // прибавяме към сумата
      if chislo mod 2 =1 then  // ако остатъка от деление на 2 е равно на 1 тогава
      pn:=chislo*chislo;       // за pn се присвоява - числото умножено по остатъка
      if chislo mod 5=0 then   // ако остатъка от деление на 5 е равно на 0 тогава
      k5:=k5+1;  // за k5 се присвоява - k5 плюс 1
      if chislo>max then // ако число>max тогава
      max:=chislo; // за max се присвоява по-голямото число
      if chislo<min then // ако число<min тогава
      min:=chislo; // за min се присвоява по-малкото число
  until chislo=0 ; // докато стане равно на 0
  WriteLn('Sumata e: ',suma);  // на екрана се извежда 'Sumata e: ' и самата сума
  WriteLn('Proizvedenieto na nechetnite chisla e: ',pn); // на екрана се извежда 'Proizvedenieto na nechetnite chisla e: ' и произведението на числата
  WriteLn('Kratnite na 5 sa: ',k5); // на екрана се извежда 'Kratnite na 5 sa: ' и броя на кратните числа на 5
  WriteLn('Maximalnoto chislo e: ',max); // на екрана се извежда 'Maximalnoto chislo e: ' и максималното число
  WriteLn('Minimalnoto chislo e: ',min); // на екрана се извежда 'Minimalnoto chislo e: ' и минималното число
  ReadLn; // прочита нов ред
end. // край

Вашият коментар