Paskalis

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.

Prikeliu truputį.

Prikeliu truputį.

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.

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ū.

dabar va taip, parasykit man 2 programas kur siame lape yra b ir e kaip jas parasyt net nenumanau

aciu uz pagalba <_<

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.

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.