Programos ruošinys

//--- Programos C++ ---

#include <iostream>

#include <locale>

/*

Sumuoja klaviatūra įvedamą skaičių srautą.

Srauto pabaigos požymis - 0.

*/

using namespace std;

int main()

{

setlocale(LC_CTYPE,"");

int x, suma = 0;

cin >> x;

while (x != 0)

{

suma += x;

cin >> x;

}

cout << suma << endl;

return 0;

}

//---------------------------------------

#include <iostream>

#include <locale>

/*

Skaičiuoja klaviatūra įvedamą skaičių srautą:

lyginius skaičius daugina,

nelyginių - skaičiuoja kiekį.

Srauto pabaigos požymis - 0.

*/

using namespace std;

int main()

{

setlocale(LC_CTYPE,"");

int x, sand = 1, kiek = 0;

cin >> x;

while (x != 0)

{

if (x % 2 == 0) sand *= x;

else kiek++;

cin >> x;

}

cout << "Lyginių skaičių sandauga - " << sand << ", nelyginių kiekis - " << kiek << "."<< endl;

return 0;

}

//--- Programos Paskaliu ---

PASCAL:

Program srautai;

var x, suma: integer;

begin

readln (x); suma := 0;

while x <> 0 do

begin

suma := suma + x;

readln (x);

end;

writeln (suma)

end.

// Kiekio ir sandaugos algoritmas

{ 1 (a) }

Program srautai_2;

var x, sand, kiek: integer;

begin

readln (x); sand := 1; kiek := 0;

while x <> 0 do

begin

if x mod 2 = 0

then sand := sand * x

else kiek := kiek + 1;

readln (x);

end;

writeln ('Lyginiu skaiciu sandauga - ',sand,' Nelyginiu kiekis - ', kiek)

end.