Pereiti prie turinio

Rekomenduojami pranešimai

Ir vėl prašau Jūsų pagalbos.

Yra duom.txt failas

2 3 8

8

10

5

9

11

6

12

7

 

pirmoje eilutėje trys skaičiai A, B, n

kitose eilutėse skaičiai iš kurių dalinsime A ir B

Reikia program,ėlės, kuri išrinktų skaičius kurie dalinasi iš A, bet nesidalina iš skaičiaus B.

Būsiu labai dėkingas, jei kas parašys.

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Prikeliu truputį.
Prašom: :)

program Bevardė55;
var prad: text;
a, b, n, t, i: longint;
begin
assign(prad, 'duom.txt');
reset(prad);
readln(prad, a, b, n);
for i := 1 to n do
	begin
		readln(prad, t);
		if (t mod a = 0) and not (t mod b = 0) then
			writeln(t);
	end;
close(prad);
Readln;
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Prašom: :)

program Bevardė55;
var prad: text;
a, b, n, t, i: longint;
begin
assign(prad, 'duom.txt');
reset(prad);
readln(prad, a, b, n);
for i := 1 to n do
	begin
		readln(prad, t);
		if (t mod a = 0) and not (t mod b = 0) then
			writeln(t);
	end;
close(prad);
Readln;
end.

Ir vėl tu mane gelbėji... Ačiū.

Nuoroda į pranešimą
Dalintis kituose puslapiuose
dabar va taip, parasykit man 2 programas kur siame lape yra b ir e kaip jas parasyt net nenumanau

aciu uz pagalba ^_^

Prašom :P

program b;
var n, s, i : integer;
begin
 WriteLn('Iveskite n: ');
 Readln(n);
 s:=0;
 for i:=1 to n do
  if i mod 2 <> 0
then s:=s+i;
 writeln('Suma: ', s);
 readln;
end.

program e;
var m, n, s, i : integer;
begin
 WriteLn('Iveskite m, n: ');
 Readln(m, n);
 s:=0;
 for i:=m to n do
  s:=sqr(i)+s;
 writeln('Suma: ', s);
 readln;
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose
  • po 7 mėnesių...

Sveiki,

Ištiko bėda. Grįžau tik namo, o reik padaryti šias užduotis ir dar istorijos kontrui pasiruošti. Būčiau dėkingas kas galėtų jas išspręsti:

 

Duotas sveikųjų skaičių masyvas a(n). Apskaičiuokite kiek yra teigiamų elementų; neigiamų elementų modulių sandaugą ir teigiamų skaičių kvadratų sumą.

 

Duotas sveikųjų skaičių masyvas a(n). Sudarykite naują masyvą b(n), kurio elementai sudaryti iš a masyvo, surašius skaičius atvirkščiai.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...