-
Pranešimai
19 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
100%
Apie QwN
-
Rangas
Naujas veidas forume
-
#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; }
-
QwN sureagavo į pranešimą temoje: Keliaujame į... Argentiną: Buenos Airės / Buenos Aires S01E09
-
į kokias studijas?
-
Nextizious parašė teigiamą atsiliepimą apie QwN
-
keturi paskutiniai asmens kodo skaičiai.
-
NemokuProgramuoti sureagavo į pranešimą temoje: [FPS] Programos kūrimas bėda
-
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/
-
QwN sureagavo į pranešimą temoje: Anglų kalbos brandos egzaminas 2012: atsakymai su paaiškinimais
-
QwN sureagavo į pranešimą temoje: Email'as su turimu domeno vardu naudojant geriausius filtrus ir serverius nemokamai
-
Rob3rtas sureagavo į pranešimą temoje: pascal uzduotis
-
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.
-
QwN sureagavo į pranešimą temoje: Tinklaraštis apie keliones.
-
i blocked lithuania because over 2,600 people used the service and only 6 paid, not because of "discrimination"