FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
Lolo
Femeie
24 ani
Galati
cauta Barbat
25 - 52 ani
FORUM / Forum Nou / 27  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{numere.in primul sir e format din cel putin
2 nr reale progresie aritmetica}
program douasapte;
var f:text;
a,p,q,x,y:real; ok:boolean;
begin
assign(f,'numere.in');
reset(f);
readln(f,x,y);
a:=y-x;
ok:=true;
p:=y;
while not eof(f) do
begin
read(f,q);
if q-p<>a then ok:=false;
p:=q;
end;
if ok then writeln(x:0:2,' ',a:0:2)
      else writeln('nu este p a');
close(f);readln;
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la