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

į kokias studijas?

51

35

33

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.

http://arto.lt/

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"