audrius^

55

program programa; var i, j, m, n, Pk:integer; pirminis:boolean; begin Pk := 0; for i:=m to n do begin pirminis := true; for j:=2 to floor(sqrt(i))+1 do if (i mod j == 0) pirminis := false; if pirminis then Pk++; end; end.

20eur

program a; var n, m, k, s:integer; begin writeln('Ivesti m ir n: '); readln(m, n); k := n - m + 1; //skaiciu kiekis intervale [m, n] s := (m+n)*k div 2; //skaiciu suma intervale [m, n] writeln(' Kiekis: ', k, ' Suma: ', s, ' Vidurkis: ', (s/k):2:2); readln(); end.

http://www.part.lt/img/47441af4fe566b0c8c8dbf2052fdf2b4712.gif R23 = 6/7 Aciu uz pataisyma, sumaises R23 ir R32 buvau...

30

20

17

Nelabai pamenu pascalio sintaksės ir neturiu compilerio, bet gal užvesiu ant kelio kaip ką daryti... program programa; function ArPirminis(sk:integer):boolean; var i:integer; begin if (sk <= 1) then ArPirminis := false else if ((sk == 2) || (sk == 3)) then ArPirminis := true else begin i := 5; while (i <= trunc(sqrt(sk))) do begin if (sk mod i == 0) then ArPirminis := false; i += 2; end; end; ArPirminis := true; end; var i, sk:integer; Begin readln(sk); while (sk != 0) do begin if (ArPirminis(sk) == true) then writeln(sk, " Pirminis skaicius")

Paaiškink ką bandai padaryti?

Seniai jau buvau programavęs C++, bet va dar kažką atsimenu. #include <iostream> #include <ifstream> using namespace std; void Skaitymas(int); int main() { int t; Skaitymas(t); cout << t << endl; system("PAUSE"); return 0; } void Skaitymas(int *temp) { ifstream D; D.open("duomenys.txt"); int kiekis = 0; int sk; D >> temp >> kiekis; for (int i=0; i<kiekis; i++) { D >> sk; temp += sk; } D.close(); } P.S. neturėjau jokio c++ compilerio, tai galiu būt kokią klaidą įvėlęs...

program programa; type duom = 'duomenys.txt'; procedure skaitymas(var temp:integer); var i, k, sk:integer; D:text; begin assign(D, duom); reset(D); readln(D, temp, k); for i:=1 to k do begin read(D, sk); temp += sk; end; close(D); end; var t:integer; Begin skaitymas(t); writeln(t); readln; End. duomenu failo pavadinimas yra: duomenys.txt

Tu tik vieną kartą iškvieti funkciją "nak := Kaina(pm, ak, n, m, p);", po šios eilutės tu priskiri nak reikšmę ir ją naudoji rašymo funkcijoje... Turėtum rašymo procedūroje, kiekvienai mašinai atskirai skaičiuoti nak reiškmę t.y. šią eilutę WriteLn(Fw, i, ' ', pm[i], ' ', v[i], ' ', ak[i]:0:2, ' ', nak:0:2); pakeisti į kažką panašaus į WriteLn(Fw, i, ' ', pm[i], ' ', v[i], ' ', ak[i]:0:2, ' ', Kaina(pm, ak, n, m, p):0:2); Susitvarkyk rašymo funkciją, nes nak reikšmė beprasmiška gaunasi

šiuo atvėju tai break užbaigia while ciklą, nes kitaip niekada programa nesustotų

program programa; var i:integer; Pk, sumPk:real; Begin sumPk := 0.00; for i:=1 to 8 do begin readln(Pk); if (Pk < 50.00) then sumPk += Pk; end; writeln('suma: ', sumPk:4:2, 'lt'); readln; End. program programa; const M:integer = 10; var i, sk, sum, k:integer; Begin sum:=0; k:=0; while (true) do begin readln(sk); if (sk <> 0) then if (sk > M) then begin sum += sk; k += 1; end; else break; end; writeln('suma ', sum); writeln('kiekis ', k); readln; End.