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.