QwN

//

#include <iostream>
using namespace std;

int main() {

int n=1;
int m=100;
int bendras=0;

   while (n<m)
   {
       if (n%2 == 1)
       {
           cout << n << endl;
           bendras++;
       }
       n++;
   }


   cout <<  " nelyginiu skaiciu kiekis : " << bendras << endl;


return 0;
}

flip men

Chebra pagalbos, niekur nerandu :D

į kokias studijas?

51

35

33

Nec'o kodas, tai tas, kurį auklėtoja davė, o slaptažodis... ? reikia susigalvoti?

keturi paskutiniai asmens kodo skaičiai.

program Noname2;
var x,n,k,i,kaina : integer;
begin
 WriteLn('Kiek zmoniu?');
 Readln(n);
 WriteLn('Kaina?');
 Readln(k);
 WriteLn('Medaliu kiekis?');
 Readln(x);

 for i:=1 to n do
 begin
 kaina:=kaina+k*x;
 end;

 if x > 3 then
   kaina:=kaina-k*n;

 writeln('Moketi: ',kaina);

 Readln;
end.

program uzduotis;

type masyvas = array[1..100] of integer;

var     i, j, din, x : integer;
       f : text;
       a : masyvas;
begin
assign(f,'pazymiai.txt');
reset(f);
x:=0;
while not eof(f) do
begin
   x:=x+1;
   read(f,a[x]);
end;
writeln('Aibeje yra ',x,' elementu (-ai)');
for i := 1 to x do
   for j := i to x do
       if a[i] > a[j] then
           begin
           din := a[i];
           a[i]:= a[j];
           a[j]:= din;
           end;
writeln('Aibes elementai isdestyti pagal abecele');
for i:=1 to x do
   write(a[i],' ');
Readln;
close(f);
end.

Jai nori skaičius pagal eilę dėlioti reikia perrašyti programą.

program uzduotis;
var a, din : string;
    i, j : integer;
    f : text;
begin
 assign(f,'pazymiai.txt');
 reset(f);
 //writeln('Iveskite aibes skaicius');
 readln(f,a);
 writeln('Aibeje yra ',length(a),' elementu (-ai)');
 for i := 1 to length(a) do
  for j := i to length(a) do
   if a[i] > a[j] then
    begin
     din := a[i];
     a[i]:= a[j];
     a[j]:= din[1];
    end;
 writeln('Aibes elementai isdestyti pagal abecele');
 writeln(a);
 Readln;
 close(f);
end.

program Bevarde0;
var i,n,j,sept,lyg:integer;
   begin
       writeln('Kiek loterijos traukimø imituoti?');
       readln(n);

       for i:=1 to n do
           begin
               for j:=1 to 3 do
                   begin
                   if random(10) = 7 then
                       sept:=sept+1;
                   if random(10) mod 2 = 0 then
                       lyg:=lyg+1;
                   end;
           end;

   writeln('lyginiai skaiciai: ',(100*lyg)/(n*3):6:2,'%');
   writeln('7 pasitaike : ',(100*sept)/(n*3):6:2, '%');
   readln;
   end.

i blocked lithuania because over 2,600 people used the service and only 6 paid, not because of "discrimination"

Hmmm kal ir durnas klausimas,bet kur rasti savo videobb ref nuoroda???

http://videobb.com/referrals.php