FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
ramonaa86 pe Simpatie
 | Femeie
25 ani
Brasov
cauta Barbat
31 - 46 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|