Pereiti prie turinio

dns97

Nariai
  • Pranešimai

    9
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

dns97 Pranešimai

  1. 7 užduotis:

    program uzduotis7;
     var i, temp, dienos : integer;
    begin
     dienos := 0;
     for i := 1 to 7 do
       begin
           Write('Įveskite dienos temperatūrą: ');
           Readln(temp);
           if temp > 10
               then dienos := dienos + 1;
       end;
     Writeln('Šiltų dienų skaičius: ', dienos);
     Readln;
    end.

     

    8 užduotis:

    program uzduotis8;
     var skaicius, sum1, sum2 : integer;
    begin
     Write('Įveskite skaičių: ');
     Readln(skaicius);
     sum1 := 0;
     sum2 := 0;
     while skaicius <> 0 do
       begin
           if skaicius > 0
               then sum1 := sum1 + skaicius
               else sum2 := sum2 + skaicius;
           Write('Įveskite skaičių: ');
           Readln(skaicius);
       end;
     Writeln('Teigiamų narių suma: ', sum1);
     Writeln('Neigiamų narių suma: ', sum2);
     Readln;
    end.

×
×
  • Pasirinkite naujai kuriamo turinio tipą...